diff options
| author | Steve Bennett <steveb@workware.net.au> | 2011-09-26 15:01:36 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2011-09-26 15:01:36 +1000 |
| commit | a36dd18cbc9c8b0483c2cefa49f5bbc2bd3b4e73 (patch) | |
| tree | 5b9085e30c46b629eb3a2fd75c2143695bd63407 /examples | |
| parent | 9664e24cd60105151a3e0e906b9687ed83fe088f (diff) | |
| download | jimtcl-a36dd18cbc9c8b0483c2cefa49f5bbc2bd3b4e73.zip jimtcl-a36dd18cbc9c8b0483c2cefa49f5bbc2bd3b4e73.tar.gz jimtcl-a36dd18cbc9c8b0483c2cefa49f5bbc2bd3b4e73.tar.bz2 | |
Class vars should take precedence
...over baseclass vars.
Signed-off-by: Steve Bennett <steveb@workware.net.au>
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]" |