Data commit

Task/Add-a-variable-to-a-class-instance-at-runtime/Tcl/add-a-variable-to-a-class-instance-at-runtime-1.tcl

@@ -0,0 +1,27 @@
+% package require TclOO
+% oo::class create summation {
+   constructor {} {
+       variable v 0
+   }
+   method add x {
+       variable v
+       incr v $x
+   }
+   method value {{var v}} {
+       variable $var
+       return [set $var]
+   }
+   destructor {
+       variable v
+       puts "Ended with value $v"
+   }
+}
+::summation
+% set s [summation new]
+% # Do the monkey patch!
+% set [info object namespace $s]::time now
+now
+% # Prove it's really part of the object...
+% $s value time
+now
+%

Task/Add-a-variable-to-a-class-instance-at-runtime/Tcl/add-a-variable-to-a-class-instance-at-runtime-2.tcl

@@ -0,0 +1,28 @@
+% oo::class create summation {
+   constructor {} {
+       variable v 0
+   }
+   method add x {
+       variable v
+       incr v $x
+   }
+   method value {{var v}} {
+       variable $var
+       return [set $var]
+   }
+   destructor {
+       variable v
+       puts "Ended with value $v"
+   }
+}
+::summation
+% set s [summation new]
+% set s2 [summation new]
+% oo::objdefine $s export varname
+% # Do the monkey patch...
+% set [$s varname time] "now"
+% $s value time
+now
+% # Show that it is only in one object...
+% $s2 value time
+can't read "time": no such variable