diff options
Diffstat (limited to 'examples')
| -rw-r--r-- | examples/ootest.tcl | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/examples/ootest.tcl b/examples/ootest.tcl index d04951e..d3d48c3 100644 --- a/examples/ootest.tcl +++ b/examples/ootest.tcl @@ -59,6 +59,7 @@ puts "" # Now create a new subclass class CreditAccount Account { limit -1000 + balance -20 } # Override the 'withdraw' method to allow overdrawing CreditAccount method withdraw {amount} { @@ -85,6 +86,7 @@ set b [CreditAccount new {name "John White"}] puts b.vars=[$b vars] puts b.classname=[$b classname] +puts "initial balance -> [$b see]" $b deposit 100 puts "deposit 100 -> [$b see]" |