2011年8月7日
test itk_component
摘要： 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 : 阅读全文
posted @ 2011-08-07 22:46 greencolor 阅读(118) 评论(0) 推荐(0) 编辑
parent::constructor $args without eval
摘要： 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 阅读全文
posted @ 2011-08-07 12:59 greencolor 阅读(182) 评论(0) 推荐(0) 编辑
gEntry test
摘要： 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 阅读全文
posted @ 2011-08-07 00:36 greencolor 阅读(185) 评论(0) 推荐(0) 编辑
inherit $this
摘要： class aa {inherit itk::Widgetpublic method kkaconstructor { args } {puts $itk_component(hull)puts [ $this kkc]# [code $this kkc]}}body aa::kka { args } {puts "aa"}class bb {inherit aa#inherit itk::Widgetpublic method kkbconstructor { args } {puts $itk_component(hull)puts [ $this kkc]} }bod 阅读全文
posted @ 2011-08-07 00:09 greencolor 阅读(151) 评论(0) 推荐(0) 编辑