class aa {
public method kk
constructor {args} {
}
}
body aa::kk {args} {
puts $args
}
class bb {
}
class cc {
public method bbt
public method bby
constructor {args} {
}
}
body cc::bbt {args} {
aa .teb
.teb kk 3
puts $args
bby 5
return [expr $args + 5]
}
body cc::bby {args} {
puts $args
}
aa .te
.te kk 2
cc .tes
set aaaa [.tes bbt 4]
puts $aaaa