class command body

最新推荐文章于 2021-03-30 11:35:34 发布

weixin_30670965

最新推荐文章于 2021-03-30 11:35:34 发布

阅读量104

点赞数

原文链接：http://www.cnblogs.com/greencolor/archive/2011/08/09/2132169.html

版权

class cddd {
inherit itk::Widget
constructor { args } {
        itk_component add lineone {
  label $itk_component(hull).a \
             -text "getv"
        }
pack $itk_component(lineone)
}
}
cddd .ck
pack .ck

class cc {
inherit itk::Widget
public method changtext

constructor {args} {
itk_component add linetwo {
       label $itk_component(hull).d \
                  -text "bbb"
}
itk_component add buttontwo {
       button $itk_component(hull).b \
            -text "est" \
            -command "$itk_component(hull) changtext ccc"
}
pack $itk_component(linetwo)
pack $itk_component(buttontwo)
}
}