Posted to tcl by kbk at Sun Feb 08 00:01:51 GMT 2009view pretty
% 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