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