Focus sur fenêtres TCL/TK
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:
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,
