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

摘要： 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 bb {#inherit aainherit itk::Widgetconstructor { args } {puts $itk_component(hull)}}class cc {inherit bbconstructor { args } { eval bb::constructor $args} {puts $itk_component(hull)}}cc .c abt acd ad 阅读全文

摘要： class aa {inherit itk::Widgetconstructor { args } {puts $itk_component(hull)}}class bb {inherit aaconstructor { args } {puts $itk_component(hull)}}class cc {inherit bbconstructor { args } {puts $itk_component(hull)}}cc .c abt acd ad====args only to class cc 阅读全文

摘要： class aa {inherit itk::Widgetconstructor { args } {puts $itk_component(hull)}}class bb {inherit aaconstructor { args } {puts $itk_component(hull)}}class cc {inherit bbconstructor { args } {puts $itk_component(hull)}}cc .c 阅读全文

摘要： 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 parent { public variable parent_a ""; public variable parent_b ""; constructor { args } { puts stdout "parent this -$this- args -$args-" eval configure $args # check value of parent_a if { $parent_a == "" } { puts "- 阅读全文

摘要： class child { public variable parent_a ""; public variable parent_b ""; public variable child_a # pass arguments in an init code fragment constructor { args } { puts stdout "parent this -$this- args -$args-" eval configure $args # check value of parent_a if { $parent_a 阅读全文

摘要： class child { inherit itk::Widget public variable child_a constructor { args } { itk_component add menu_frame { frame $itk_interior.mf \ -bd 1 \ -relief solid } itk_component add label {label $itk_interior.mf.l1 \ -text "Name"} itk_component add toolbar_frame { frame $itk_interior.tbf \ -b 阅读全文

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