摘要： class child { inherit itk::Widget public variable child_a constructor { args } { itk_option add hull.width hull.height $itk_component(hull) configure -width 1050 -height 768 wm minsize [winfo toplevel $itk_component(hull)] 1050 768 pack propagate $itk_interior 0 itk_component add menu {menu $itk_int 阅读全文

摘要： =>class aaa {}=>find classes aaaaaa=>delete class aaa=>find classes aaa=> 阅读全文

摘要： class person {public variable namepublic variable ageconstructor {{inname "A N Other"} {inage 21}} {set name $innameset age $inage}}person .kk# Second base classclass cost {public variable startuppublic variable annualconstructor {{yearly 12000}{newstart 0} } {set startup $newstart } {set 阅读全文

摘要： set title_font_size 12font create title_font -family helvetica -size $title_font_size -weight bold 阅读全文

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

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

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

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

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