\#auto in two different class

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

转载于:https://www.cnblogs.com/greencolor/archive/2011/08/12/2136333.html