Posted to tcl by dgp at Thu Jul 07 12:42:33 GMT 2011view raw

  1.  
  2. package require Itcl 3.4
  3. if 1 {
  4. itcl::class Foo {
  5. constructor {args} {concat} {}
  6. }
  7. itcl::class Bar {
  8. constructor {args} {concat} {global G}
  9. }
  10. }
  11. Bar bar
  12. Foo foo
  13. Bar baz
  14.