Tk - Widgets de Seleção

Os widgets de seleção são usados ​​para selecionar diferentes opções em um aplicativo Tk. A lista de widgets de seleção disponíveis é mostrada abaixo.

Sr. Não. Widgets e descrição
1 Botao de radio

Widget que possui um conjunto de botões liga / desliga e rótulos, um dos quais pode ser selecionado.
2 Botão de verificação

Widget que possui um conjunto de botões liga / desliga e rótulos, muitos dos quais podem ser selecionados.
3 Cardápio

Widget que atua como suporte para itens de menu.
4 Listbox

Widget que exibe uma lista de células, uma ou mais das quais podem ser selecionadas.

Um exemplo simples de Tk é mostrado abaixo usando widgets de seleção -

#!/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 executarmos o programa acima, obteremos a seguinte saída -