Tk - Widget di selezione

I widget di selezione vengono utilizzati per selezionare diverse opzioni in un'applicazione Tk. L'elenco dei widget di selezione disponibili è mostrato di seguito.

Sr.No.	Widget e descrizione
1	Radiobutton Widget che dispone di una serie di pulsanti di attivazione / disattivazione ed etichette, una delle quali può essere selezionata.
2	Pulsante di spunta Widget con una serie di pulsanti ed etichette di attivazione / disattivazione, molti dei quali possono essere selezionati.
3	Menù Widget che funge da supporto per le voci di menu.
4	Listbox Widget che mostra un elenco di celle, una o più delle quali possono essere selezionate.

Di seguito viene mostrato un semplice esempio di Tk utilizzando i widget di selezione:

#!/usr/bin/wish

grid [frame .gender ]
grid [label .label1  -text "Male" -textvariable myLabel1 ] 
grid [radiobutton .gender.maleBtn -text "Male"   -variable gender -value "Male"
   -command "set  myLabel1 Male"] -row 1 -column 2
grid [radiobutton .gender.femaleBtn -text "Female" -variable gender -value "Female"
   -command "set  myLabel1 Female"] -row 1 -column 3
.gender.maleBtn select
grid [label .myLabel2  -text "Range 1 not selected" -textvariable myLabelValue2 ] 
grid [checkbutton .chk1 -text "Range 1" -variable occupied1 -command {if {$occupied1 } {
   set myLabelValue2 {Range 1 selected}
} else {
   set myLabelValue2 {Range 1 not selected}
} }]
proc setLabel {text} {
   .label configure -text $text 
}

Quando eseguiamo il programma sopra, otterremo il seguente output: