2012年8月4日
configbody
摘要： class bb { inherit itk::Widget itk_option define -activeClientOnly activeClientOnly ActiveClientOnly 1 constructor { args } { eval itk_initialize $args}}configbody bb::activeClientOnly { puts "abc" if { $itk_option(-activeClientOnly) == 0 } {puts "zero" } else { }}class aa { inhe 阅读全文
posted @ 2012-08-04 17:27 greencolor 阅读(119) 评论(0) 推荐(0) 编辑
registerComponent announceExist
摘要： puts $itk_component(button) .pw.pane0.childsite.bluce.n.canvas.notebook.cs.page1.cs.h.hutch.c.control.entryring.start.bregisterComponent $itk_component(button) DCS::ComponentGateExtension::registerComponent { args } { foreach component $args { if {[lsearch $listOfComponents $component] < 0} { lap 阅读全文
posted @ 2012-08-04 15:30 greencolor 阅读(157) 评论(0) 推荐(0) 编辑