摘要：
================================ 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 "- 阅读全文
posted @ 2011-08-05 21:04
greencolor
阅读(213)
评论(0)
推荐(0)
摘要：
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 阅读全文
posted @ 2011-08-05 17:28
greencolor
阅读(189)
评论(0)
推荐(0)
摘要：
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 阅读全文
posted @ 2011-08-05 16:41
greencolor
阅读(128)
评论(0)
推荐(0)
摘要：
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 阅读全文
posted @ 2011-08-05 14:39
greencolor
阅读(108)
评论(0)
推荐(0)
摘要：
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 阅读全文
posted @ 2011-08-05 13:51
greencolor
阅读(136)
评论(0)
推荐(0)
摘要：
=>class aaa {}=>find classes aaaaaa=>delete class aaa=>find classes aaa=> 阅读全文
posted @ 2011-08-05 11:48
greencolor
阅读(90)
评论(0)
推荐(0)
浙公网安备 33010602011771号