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