Posted to tcl by pooryorick at Thu Aug 30 20:17:19 GMT 2018view pretty
oo::class create A { variable var1 method m2 {} { return var1 } } oo::class create B { superclass A variable var1 constructor {} { set var1 hello } method m1 {} { return $var1 } } B create b1