Classes: Difference between revisions

Content deleted Content added

Inline

@@ Line 1,073: / Line 1,073: @@
 {{works with|Tcl|8.5}} and the [http://wiki.tcl.tk/TclOO TclOO package]
 <lang Tcl>oo::class create summation {
+    variable v
     constructor {} {
-        variable v 0
+        set v 0
     }
     method add x {
-        variable v
         incr v $x
     }
     method value {} {
-        variable v
         return $v
     }
     destructor {
-        variable v
         puts "Ended with value $v"
     }