摘要： class cc { public method changtextconstructor { args } {}}body cc::changtext { args } {puts $argsreturn [expr $args +3]}set kk [[namespace current]::[cc \#auto] changtext 33] puts $kk 阅读全文

摘要： 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 阅读全文

摘要： class cddd {inherit itk::Widgetconstructor { args } { itk_component add lineone {label $itk_component(hull).a \ -text "getv" }pack $itk_component(lineone) }}cddd .ckpack .ckclass cc {inherit itk::Widgetpublic method changtextconstructor {args} {itk_component add linetwo { label $itk_compon 阅读全文

摘要： proc changtext { args } { .ck.a configure -text $args .c.d configure -text $args }class cddd {inherit itk::Widgetconstructor { args } { itk_component add lineone {label $itk_component(hull).a \ -text "getv" }pack $itk_component(lineone) }}cddd .ckpack .ckclass cc {inherit itk::Widget const 阅读全文

摘要： class aa {public method kkconstructor {args} {}}body aa::kk {args} {puts $args}class bb {}class cc {public method bbtpublic method bbyconstructor {args} {}}body cc::bbt {args} {aa .teb.teb kk 3puts $argsbby 5return [expr $args + 5]}body cc::bby {args} {puts $args}aa .te.te kk 2cc .tesset aaaa [.tes 阅读全文

摘要： itk_component add min_res_e {SettingEntry $itk_component(toolbar).minre low_resolution_limit \ -image ::img::min_res16x16 \ -type real \ -precision 2 \ -width 5 \ -justify right \ -balloonhelp "Low resolution limit" }==========================SettingEntry .c low_resolution_limit \ -image : 阅读全文

摘要： class Balloonwidget { inherit itk::Widget itk_option define -balloonhelp balloonHelp BalloonHelp "" private variable balloon_queue "" private variable destroy_queue "" public method enter public method leave public method balloon constructor { args } {bind $itk_componen 阅读全文

摘要： class gEntry { inherit itk::Widget itk_option define -balloonhelp balloonHelp BalloonHelp "" private variable balloon_queue "" private variable destroy_queue "" public method enter public method leave public method balloon itk_option define -image image Image "&quo 阅读全文