class cc {
inherit itk::Widget
proc 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)
}
}
body cc::changtext { args } {
.ck.a configure -text $args
.c.d configure -text $args
}
cc::changtext dddd