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,