2011年8月1日
grid pack
摘要： itk_component add heading_f {frame $itk_interior.main.hf \ -bd 1 \ -relief solid } itk_component add heading_l {label $itk_interior.main.hf.fl \ -text "Images" \ -font title_font \ -anchor w } {usualignore -font } grid $itk_component(heading_f) -row 0 -column 0 -sticky nswe -padx 7 -pady { 阅读全文
posted @ 2011-08-01 22:05 greencolor 阅读(158) 评论(0) 推荐(0) 编辑
body test
摘要： class test {inherit itk::Widgetpublic method aaapublic method rollover public method rolloutofpublic method showStageprivate variable current_stage "hull"constructor { args } {itk_option add hull.width hull.height$itk_component(hull) configure -width 1050 -height 768wm minsize [winfo tople 阅读全文
posted @ 2011-08-01 00:53 greencolor 阅读(358) 评论(0) 推荐(0) 编辑