2011年5月15日
new tab addin
摘要： body createDataprocessTab {} { set childsite [$itk_component(notebook) add Dataprocess -label "Dataprocess"] itk_component add dataprocessTab { label $itk_interior.dataprocessTab } { keep -background keep -font }#$itk_component(hutchTab) addChildVisibilityControl $itk_component(notebook) a 阅读全文
posted @ 2011-05-15 22:53 greencolor 阅读(108) 评论(0) 推荐(0) 编辑
StatusBar
摘要： $itk_componentarray abort .sb.stop activeButton.sb.active clientStatusLabel.sb.cs destroyer .sb.destroyer hull .sb l_shutter .sb.l_shutter login .sb.login shutter .sb.shutter spear .sb.spear sys_status .sb.sysStatus time .sb.t 阅读全文
posted @ 2011-05-15 16:18 greencolor 阅读(124) 评论(0) 推荐(0) 编辑
initial class tcl tk
摘要： class Singleton { private common _instance {} ;# static instance variable # # Define a "static method" Instance. # proc Instance {} { if { $_instance == {} } { set _instance [Singleton ABC] } return $_instance } # end of Instance constructor {} { set caller [info level [expr [info level] - 阅读全文
posted @ 2011-05-15 13:08 greencolor 阅读(202) 评论(0) 推荐(0) 编辑