test.tcl

来自「这是一个tcl和c集成的例子」· TCL 代码 · 共 17 行

global c_min
global c_max
global c_statusString

button .b -text EXIT -command exit -width 8;
button .c -text $c_min -width 8 -command {set c_min [expr $c_min + 1.0 ];.c configure -text $c_min;c_infoprint}
button .d -text $c_max -width 8 -command {set c_max [expr $c_max + 1.0 ];.d configure -text $c_max;c_infoprint}
button .e -text text1 -width 8 -command {set c_statusString text1;c_infoprint}
button .f -text text2 -width 8 -command {set c_statusString text2;c_infoprint}
button .g -text text3 -width 8 -command {set c_statusString text3;c_infoprint}
  
pack  .c .d .e .f .g .b

proc show {} {
  global c_min;
  puts $c_min;
}