Posted to tcl by colin at Sun Nov 14 22:10:28 GMT 2010view raw

  1. o::class create Foo {
  2. destructor {
  3. }
  4. method bar {} {
  5. variable live 1
  6. my destroy
  7. puts "It LIVES $live"
  8. }
  9. }
  10.  
  11. Foo create moop
  12. moop bar