Posted to tcl by emiliano at Mon Jun 01 19:06:28 GMT 2020view raw

  1. oo::class create Foo {
  2. method bar {} {
  3. puts class:[info level]
  4. return
  5. }
  6. }
  7. Foo create foo
  8. oo::objdefine foo {
  9. method bar {} {
  10. puts object:[info level]
  11. next
  12. puts here
  13. }
  14. }
  15. % foo bar
  16. object:1
  17. class:1
  18. here
  19. % oo::define Foo {
  20. method bar {} {
  21. puts class:[info level]
  22. return -level 2
  23. }
  24. }
  25. % foo bar
  26. object:1
  27. class:1