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