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

package require Itcl 3.4
if 1 {
    itcl::class Foo {
        constructor {args} {concat} {}
    }
    itcl::class Bar {
        constructor {args} {concat} {global G}
    }
}
Bar bar
Foo foo
Bar baz