арифметические команды в tcl/tk программировании

Question

Я программирую в tcl \ tk. код показывает следующее сообщение об ошибке:

 
"missing operand at _@_ 
in expression "+_@_"" 

entry .e1 -textvar a 
entry .e2 -textvar b 
message .m -textvar c 
button .b -text "press here" -command "set c [expr $a+$b]" 

ошибка показывает в последней строке. Я запускаю его в tclsh и показываю ту же ошибку. Я также попытался использовать его в функции proc, но та же ошибка появляется. Я пытаюсь выполнить арифметические операции с помощью tk.

Answer 1

Когда 4-я строка оценивается интерпретатором, она расширяет содержимое указанной части и выполняет команду expr с содержимым a и b. Однако эти переменные не имеют значения в этот момент времени. Вы хотели оценить эту команду, когда пользователь нажимает кнопку, но ее оценивают при создании кнопки.

Быстрое исправление вам нужно:

button .b -text "press here" -command {set c [expr {$a + $b}]} 

при условии a и b глобальны, как команда будет оцениваться в глобальном пространстве имен, когда кнопка нажата.

Более длинное исправление заключается в том, что вы должны внимательно прочитать Tcl man page с вниманием к описанию различий между приведенными "" и сгруппированными {} выражениями в Tcl.