class cc {
public method changtext
constructor { args } {
puts $args
}
}
body cc::changtext { args } {
set dd [namespace current]::[dd \#auto ]
return $dd
}
# if the class dd is a important class, and
class dd {
public method chan
constructor {args} {
}
}
body dd::chan { args } {
puts $args
}
cc tt
set aa [tt changtext ]
puts $aa
$aa chan 23
set aa [tt changtext ]
puts $aa
$aa chan 23