diff options
Diffstat (limited to 'generic/tclOOScript.h')
| -rw-r--r-- | generic/tclOOScript.h | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/generic/tclOOScript.h b/generic/tclOOScript.h index 237bff5..d96ee76 100644 --- a/generic/tclOOScript.h +++ b/generic/tclOOScript.h @@ -161,7 +161,12 @@ static const char *tclOOSetupScript = " method new args {\n" " if {![info exists object] || ![info object isa object $object]} {\n" " set object [next {*}$args]\n" -" ::oo::objdefine $object unexport destroy\n" +" ::oo::objdefine $object method destroy {} {\n" +" return -code error {may not destroy a singleton object}\n" +" }\n" +" ::oo::objdefine $object method <cloned> {originObject} {\n" +" return -code error {may not clone a singleton object}\n" +" }\n" " }\n" " return $object\n" " }\n" |