proc inside class

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