[~] Class Foo [~] Foo instproc init {arg} { puts "arg: $arg" } [~] Foo instproc whatever {system} { puts "sys: $system" } [~] Class Bar -superclass Foo [~] Bar instproc init {} { next myArg -whatever niceSystem } [~] Bar ob called "next" with too many arguments
- ---------- = = ---------//--+ | / Kristoffer Lawson | www.fishpool.fi|.com +-> | setok@fishpool.com | - - --+------ |-- Fishpool Creations Ltd - / | +-------- = - - - = --------- /~setok/