Posted to tcl by pooryorick at Mon Apr 01 12:51:37 GMT 2013view raw

  1. #! /bin/env tclsh
  2.  
  3. namespace import oo::*
  4. set obj [object new]
  5. objdefine $obj variable var1
  6. objdefine $obj method m {} {
  7. set var1 val1
  8. }
  9. objdefine $obj method get {} {
  10. return $var1
  11. }
  12.  
  13. $obj m
  14. $obj get
  15. set obj2 [oo::copy $obj]
  16. ${obj2}::my eval {
  17. set var1 val2
  18. }
  19. puts [$obj2 get]
  20.