Posted to tcl by kbk at Sun Feb 08 00:01:51 GMT 2009view raw
- % oo::class create test {
- constructor {} {}
- method foo {} {puts "foo"}; unexport foo
- method bar {} {puts "bar"; my foo}
- }
- ::test
- % test create x
- ::x
- % x foo
- unknown method "foo": must be bar or destroy
- % x bar
- bar
- foo