Posted to tcl by kbk at Sun Feb 08 00:01:51 GMT 2009view raw

  1. % oo::class create test {
  2. constructor {} {}
  3. method foo {} {puts "foo"}; unexport foo
  4. method bar {} {puts "bar"; my foo}
  5. }
  6. ::test
  7. % test create x
  8. ::x
  9. % x foo
  10. unknown method "foo": must be bar or destroy
  11. % x bar
  12. bar
  13. foo