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