|
|
发表于 2016-5-5 12:39:24
|
显示全部楼层
本帖最后由 darrenxu 于 2016-5-5 12:40 编辑
回复 7# jifengban
#!/usr/bin/wish
frame .lef
pack .lef
set view [list aa, bb, cc, dd]
foreach name $view {
checkbutton .lef.$name -text $name -variable ${name}_value -command "if { \${${name}_value} == 1 } { puts $name}"
pack .lef.$name
} |
|