摘要: 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-07-31 22:45 greencolor 阅读(148) 评论(0) 推荐(0) 编辑
摘要: 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-07-31 22:39 greencolor 阅读(149) 评论(0) 推荐(0) 编辑
摘要: 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-07-31 22:21 greencolor 阅读(176) 评论(0) 推荐(0) 编辑
摘要: 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-07-31 22:08 greencolor 阅读(213) 评论(0) 推荐(0) 编辑
摘要: 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-07-31 16:10 greencolor 阅读(193) 评论(0) 推荐(0) 编辑
摘要: itk_component add new_tb { Toolbutton $itk_interior.tbf.toolbar.ntb \ -image ::img::file16x16 \ -command [code $this newSession] \ -balloonhelp "New session" } 阅读全文
posted @ 2011-07-31 13:27 greencolor 阅读(133) 评论(0) 推荐(0) 编辑
摘要: $itk_component(sessionmenu) add command \-label "Save as..." \-underline 5 \-command [code $this saveSessionAs]=============Save as... - 阅读全文
posted @ 2011-07-31 10:21 greencolor 阅读(144) 评论(0) 推荐(0) 编辑
摘要: set newSessionAccelerator "Control-N" $itk_component(sessionmenu) add command \-label New \-underline 0 \-accelerator $newSessionAccelerator \-command [code $this newSession] 阅读全文
posted @ 2011-07-31 09:53 greencolor 阅读(306) 评论(0) 推荐(0) 编辑