Hi everyone, 

I have different listboxes in the same toplevel window. 
The problem is, if I select (by left clicking) one of those listbox
elements, the current selection in the other listboxes is cleared! 
Anybody knows how I can prevent this? 

Thanks,

---------------------------------------------------
Rita Sousa
DME - ME: Departamento de Metodologia Estatística - Métodos Estatísticos
INE - DRP: Instituto Nacional de Estatística - Delegação Regional do Porto 
Tel.: 22 6072016 (Extensão: 4116)
--------------------------------------------------- 

require(tcltk)

#Criação da janela

janela <- tktoplevel()

tkwm.title(janela,"Apuramentos - Inquérito ao Emprego")

 

#Estilo do texto

estilo_texto <- tkfont.create(family="verdana",size=8,weight="bold")

tkgrid(tklabel(janela,text="Trimestre:",font=estilo_texto))

 

cb1 <- tkcheckbutton(janela)

cb1Valor <- tclVar("0")

tkconfigure(cb1,variable=cb1Valor)

 

tkgrid(tklabel(janela,text="1T"),cb1)

 

#Listbox com os trimestres

#janela <-tkframe(janela) 

tl<-tklistbox(janela,height=4,selectmode="multiple",background="white")

tkgrid(tklabel(janela,text="Seleccione o(s) trimestre(s):"))

tkgrid(tl)

trim <- c("T1","T2","T3","T4")

for (i in (1:4))

{

    tkinsert(tl,"end",trim[i])

}

#tkselection.set(tl,2)

 

#Listbox com as regiões

t2<-tklistbox(janela,height=4,selectmode="multiple",background="white")

tkgrid(tklabel(janela,text="Seleccione pelo menos uma das regiões:"))

tkgrid(t2)

reg <- c("Norte","Centro, Lisboa e Alentejo","Açores","Madeira")

for (i in (1:4))

{

    tkinsert(t2,"end",reg[i])

}

...

 


	[[alternative HTML version deleted]]


