TCL Grey Checkbuttons

Question

Я просматривал несколько онлайн-ресурсов, пытаясь заставить мою контрольную кнопку седеть, когда выбрана другая кнопка. Однако, со всеми моими попытками, я не могу заставить его работать.

Приведенный ниже пример: 3 флажка chkAll, chkBalanced и chkFXO. Предположим, что когда chkAll выбран и в активном состоянии, тогда chkBalanced и chkFXO затем не отмечены. Я попытался использовать if-statement, который рассматривает состояние chkAll, но он жалуется на наличие проблемы состояния в условной части блока. Должен ли я рассматривать использование переменных, если да, то как их реализовать? Я знаю, что у checkbuttons есть опция -variable, но я также не знаю, как ее использовать.

Answer 1

Если вы пытаетесь сделать эксклюзивный выбор, вы не должны использовать контрольные кнопки. То, что вы описываете, - это поведение радиолюбителей.

Чтобы использовать радиокнопки, вы создаете два или более и даете им все одинаковые переменные. Тогда вы сможете выбирать только по одному.

foreach value {chkAll chkBalanced chkFXO} { 
    radiobutton .rb-$value -text $value -variable myvar \ 
     -justify left -value $value 
    pack .rb-$value -side top -fill x -anchor w 
} 

Answer 2

Если вы просто хотите иметь три виджета, которые представляют взаимоисключающий выбор, ради бога использовать радиокнопки для выполнения этой задачи. Для этого они и есть. Это то, чего ожидают пользователи. (Еще лучше, положите их в labelframe, что улучшает удобство использования для небольших усилий.)

Если у вас есть что-то еще, и вам нужно «включать и выключать» виджеты на основе контрольной кнопки, вы делаете это поместив запись trace на переменную, на которую ссылается опция checkbox -variable. Затем эта трассировка должна включать (изменить на -state normal) или отключить (изменить на -state disabled) другие виджеты, когда он срабатывает, в зависимости от значения переменной.

checkbutton .cb -variable bools(cb) -text "Foo Bar" 
button .other -text "Example extra content" 
button .widget -text "Second ordinary button" 
# NOTE the ;# at the end; IMPORTANT HACK to discard trace arguments 
trace add variable bools(cb) {changed bools(cb) .other .widget;#} 
proc changed {varName args} { 
    upvar "#0" $varName var 
    foreach w $args { 
     if {$var} { 
      $w configure -state normal 
     } else { 
      $w configure -state disabled 
     } 
    } 
} 
set bools(cb) 0; # <<< Initialize to known state 
pack .cb .other .widget 

Такая вещь может стать довольно сложной и произвести очень приятные графические интерфейсы. Вы также можете смешивать его с помощью радиообъектов (с соответствующими настройками, поскольку переменные состояния больше не являются логическими). Но не делайте этого просто для простой группы «pick-one-from-group»; используйте для этого прямую коллекцию контрольных кнопок.