Posted to tcl by dgp at Wed Jul 06 20:28:44 GMT 2011view raw
- 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