2011年8月9日
class command body
摘要： 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 阅读全文
posted @ 2011-08-09 13:32 greencolor 阅读(164) 评论(0) 推荐(0) 编辑
class command proc
摘要： 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 阅读全文
posted @ 2011-08-09 13:21 greencolor 阅读(137) 评论(0) 推荐(0) 编辑
class method use
摘要： 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 阅读全文
posted @ 2011-08-09 10:14 greencolor 阅读(133) 评论(0) 推荐(0) 编辑