Posted to tcl by hypnotoad at Fri Dec 04 20:04:17 GMT 2015view raw

  1.  
  2. oo::class create Destroyer {
  3.  
  4. destructor {
  5. my sink
  6. puts "Destructor Called"
  7. }
  8. method sink {} {
  9. puts "Sink Called"
  10. my destroy
  11. puts "Sink Carried on"
  12. }
  13. method reallySink {} {
  14. puts "ReallySink"
  15. my destroy
  16. my sink
  17. puts "/ReallySink"
  18. }
  19. }
  20.  
  21. puts [info command one]
  22. Destroyer create one
  23. one reallySink
  24. puts [info command one]
  25.  
  26. Destroyer create two
  27. puts [info command two]
  28. rename two {}
  29. puts [info command two]
  30.  
  31. =================
  32. baccarat:cron seandeelywoods$ tclsh tcloo.tcl
  33.  
  34. ReallySink
  35. Sink Called
  36. Sink Carried on
  37. Destructor Called
  38. Sink Called
  39. Sink Carried on
  40. /ReallySink
  41.  
  42. two
  43. Sink Called
  44. Sink Carried on
  45. Destructor Called
  46.