Discussion :

[habasque]

Bonjour,

Sur mon interface Tcltk, je souhaite mettre en place une listbox qui permet de faire une sélection multiple.
Quelqu'un aurait un exemple à me proposer ?

Merci d'avance,

[Canvas]

Bonsoir,

Le widget listbox possède une option -extended.
Exemple extrait du Wiki francophone :

Code :

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

1
2
3
4
 
 set ::liste  [list orange banane poire abricot prune raisin]
 listbox .lb -listvariable ::liste -selectmode extended
 grid .lb

----
Canvas

[habasque]

Merci !
En R, cela donne :

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
 
      aa<-tktoplevel()
      tkwm.title(aa,"Selection du premier groupe d'annees")
      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 annees"))
      tkgrid(tl,scr)
      tkgrid.configure(scr,rowspan=4,sticky="nsw")
      annees <- sort(unique(trait$Annee))
      a = length(annees)
      for (i in (1:a)){
          tkinsert(tl,"end",annees[i])
      }
      tkselection.set(tl,0)
 
      OnOK <- function(){
          anneesSelectionnees = as.character(tkcurselection(tl))
          GROUPE_ANNEES_1 <- NA
          for (k in (1:length(anneesSelectionnees))){
              GROUPE_ANNEES_1[k] <- annees[as.numeric(anneesSelectionnees[k])+1] 
          }          
          assign("GROUPE_ANNEES_1",GROUPE_ANNEES_1,envir=.GlobalEnv)
          tkdestroy(aa)
      }
      OK.but <-tkbutton(aa,text="OK",command=OnOK)
      tkgrid(OK.but)
      tkfocus(aa)
      tkwait.window(aa)
      rm(a)

[kmezhoud]

Bonjour,

J'ai reçu un message d'erreur disant que "Annee" est un objet non identifié

comment puis-je le définir? unique(trait$Annee)
Merci
kmezhoud

[habasque]

Oui normal c'est un exemple de code.

Affecte une liste d'années à ta variable.
Comme ceci par exemple :

Code :

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

1
2
 
annees <- c("2012","2013","2014")