摘要:
set l [list a bc def 1 23 456]set m 0foreach i $l { incr m puts "member $m is $i"}for {set x 0} {$x<10} {incr x} { puts "x is $x"}set x 0while {$x<10} { puts "x is $x" incr x}This command is typically invoked inside the body of a looping command such as for or for 阅读全文
摘要:
class cc {inherit itk::Widgetpublic method changtext#array aaritk_option define -textbackground textBackground Background "\#ff0000"constructor {args} {itk_component add linetwo { button $itk_component(hull).d \ -text "bbb"} itk_component add buttontwo { button $itk_component(hul 阅读全文
摘要:
class cc {inherit itk::Widgetproc changtextconstructor {args} {itk_component add linetwo { label $itk_component(hull).d \ -text "bbb" }itk_component add buttontwo { button $itk_component(hull).b \ -text "est" \ -command "$itk_component(hull) changtext ccc"}pack $itk_com 阅读全文