diff options
author | Steve Bennett <steveb@workware.net.au> | 2021-02-10 07:41:22 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2021-02-20 18:12:15 +1000 |
commit | 0e541ac9fad7c9eb092dc2b7e4a7a3a66b100021 (patch) | |
tree | b37be798a65b24423a2e15fdb415838666a96d10 /oo.tcl | |
parent | 09b34554fde82e64972439a54b3adacc2d66cdc8 (diff) | |
download | jimtcl-0e541ac9fad7c9eb092dc2b7e4a7a3a66b100021.zip jimtcl-0e541ac9fad7c9eb092dc2b7e4a7a3a66b100021.tar.gz jimtcl-0e541ac9fad7c9eb092dc2b7e4a7a3a66b100021.tar.bz2 |
oo: instance ref should be fully qualified
In case the class is created with a namespace name
Fixes #193
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'oo.tcl')
-rw-r--r-- | oo.tcl | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -40,8 +40,7 @@ proc class {classname {baseclasses {}} classvars} { # This is the object dispatcher for $classname. # Store the classname in both the ref value and tag, for debugging - # ref tag (for debugging) - set obj [ref $classname $classname "$classname finalize"] + set obj ::[ref $classname $classname "$classname finalize"] proc $obj {method args} {classname instvars} { if {![exists -command "$classname $method"]} { if {![exists -command "$classname unknown"]} { |