8 Dec
2005
8 Dec
'05
12:14 p.m.
package require XOTcl 1.3.8 namespace import xotcl::*
Class X -parameter { {y y0} } X instproc init {args} { puts "[self] init '$args'"; next } X instproc y {args} { set x [next] puts "[self] y '$args'" set x } X create x -y y1 puts "expected 'y1', but got: '[x y]'"
regards, - Florian Murr