Posted to tcl by dgp at Wed Jul 06 15:58:07 GMT 2011view raw
- 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