摘要:
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 { 阅读全文
摘要:
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 阅读全文