这是一个tcl和c集成的例子

				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;
				}