Posted to tcl by pooryorick at Mon Apr 01 12:51:37 GMT 2013view raw
- #! /bin/env tclsh
- namespace import oo::*
- set obj [object new]
- objdefine $obj variable var1
- objdefine $obj method m {} {
- set var1 val1
- }
- objdefine $obj method get {} {
- return $var1
- }
- $obj m
- $obj get
- set obj2 [oo::copy $obj]
- ${obj2}::my eval {
- set var1 val2
- }
- puts [$obj2 get]