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
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