Posted to tcl by dgp at Wed Jul 06 15:58:07 GMT 2011view raw

  1.  
  2. package require Itcl 3.4
  3. eval {
  4. itcl::class Parent {
  5. constructor {args} {eval chain $args} {}
  6. }
  7. itcl::class Child {
  8. inherit Parent
  9. constructor {args} {eval chain $args} {global G}
  10. }
  11. }
  12. Child foo
  13. Child bar
  14.