Posted to tcl by dgp at Wed Jul 06 20:28:44 GMT 2011view pretty
package require Itcl 3.4 eval { itcl::class Parent { constructor {args} {chain {*}$args} {} } itcl::class Child { inherit Parent constructor {args} {chain {*}$args} {global G} } } Child foo Child bar