Discussion :

[habasque]

Bonjour à tous,

Dans le cadre du développement d'une application R TclTk, j'utilise parfois des fenêtres pour que l'utilisateur sélectionne des données.
Le souci est que parfois je perds le focus sur ces fenêtres qui peuvent se retrouver en arrière plan de manière complètement aléatoire !
Est-ce qu'il s'agit d'un bug interne connu de R TCl/Tk ou cela viendrait de mon code ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
choix_Mois.f = function(jeuDeDonnees) {
      aa<-tktoplevel()
      tkwm.title(aa,"Liste des mois du jeu de donnees")
      scr <- tkscrollbar(aa, repeatinterval=5,command=function(...)tkyview(tl,...))
      tl<-tklistbox(aa,height=20,selectmode="extended",yscrollcommand=function(...)tkset(scr,...),background="white")
      tkgrid(tklabel(aa,text="Liste des mois"))
      tkgrid(tl,scr)
      tkgrid.configure(scr,rowspan=4,sticky="nsw")
      mois <- sort(unique(jeuDeDonnees$Mois))
      m = length(mois)
      for (i in (1:m)){
          tkinsert(tl,"end",mois[i])
      }
      tkselection.set(tl,0)
      OnOK <- function(){
          moisSelectionnes = as.character(tkcurselection(tl))
          MOIS_ETUDIES <- NA
          for (k in (1:length(moisSelectionnes))){
              MOIS_ETUDIES[k] <- mois[as.numeric(moisSelectionnes[k])+1]
          }
          assign("MOIS_ETUDIES",MOIS_ETUDIES,envir=.GlobalEnv)
          tkdestroy(aa)
      }
      OK.but <-tkbutton(aa,text="OK",command=OnOK)
      tkgrid(OK.but)
      tkfocus(aa)
      tkwait.window(aa)
      tkdestroy(aa)
} #fin choix_Mois

Merci d'avance,

[pitipoisson]

Salut,

En fait, tkfocus() ne garanti pas la mise au premier plan de ta fenêtre, mais que l'élément "actif" est l'élément fenêtre.

Pour la faire passer au premier plan, tu devrais essayer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

tkwm.deiconify(aa)

Il arrive encore dans certain cas qu'elle ne remonte pas au premier plan, mais je suppose que c'est un problème lié à l'OS.

[habasque]

Merci, ça a l'air de mieux fonctionner !

J'ai mis les instructions dans cet ordre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
...
tkwm.deiconify(aa)
tkfocus(aa)
tkwait.window(aa)
tkdestroy(aa)