diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2024-07-18 15:32:43 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2024-07-18 15:32:43 (GMT) |
| commit | a2ac1f9d74a06b40f0ad0a97660865183d04e481 (patch) | |
| tree | 50f24079f21d9a24a23c4ba846152d3bf46b8b22 /tools/tclOOScript.tcl | |
| parent | 254a7ffd9e9012f7b59121e6d6679ce2e661800f (diff) | |
| parent | f886a5e9af97957c0dd418215afed0127c03743b (diff) | |
| download | tcl-a2ac1f9d74a06b40f0ad0a97660865183d04e481.zip tcl-a2ac1f9d74a06b40f0ad0a97660865183d04e481.tar.gz tcl-a2ac1f9d74a06b40f0ad0a97660865183d04e481.tar.bz2 | |
Merge trunk
Diffstat (limited to 'tools/tclOOScript.tcl')
| -rw-r--r-- | tools/tclOOScript.tcl | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/tools/tclOOScript.tcl b/tools/tclOOScript.tcl index cbceb39..6b44ba7 100644 --- a/tools/tclOOScript.tcl +++ b/tools/tclOOScript.tcl @@ -1,8 +1,8 @@ # tclOOScript.h -- # -# This file contains support scripts for TclOO. They are defined here so -# that the code can be definitely run even in safe interpreters; TclOO's -# core setup is safe. +# This file contains support scripts for TclOO. They are defined here so +# that the code can be definitely run even in safe interpreters; TclOO's +# core setup is safe. # # Copyright © 2012-2019 Donal K. Fellows # Copyright © 2013 Andreas Kupries @@ -88,7 +88,7 @@ lassign $link src set dst $src } else { - return -code error -errorcode {TCLOO CMDLINK FORMAT} \ + return -code error -errorcode {TCL OO CMDLINK_FORMAT} \ "bad link description; must only have one or two elements" } if {![string match ::* $src]} { @@ -258,7 +258,7 @@ # ------------------------------------------------------------------ method Get -unexport {} { - return -code error -errorcode {TCLOO ABSTRACT_SLOT} "unimplemented" + return -code error -errorcode {TCL OO ABSTRACT_SLOT} "unimplemented" } # ------------------------------------------------------------------ @@ -271,7 +271,7 @@ # ------------------------------------------------------------------ method Set -unexport list { - return -code error -errorcode {TCLOO ABSTRACT_SLOT} "unimplemented" + return -code error -errorcode {TCL OO ABSTRACT_SLOT} "unimplemented" } # ------------------------------------------------------------------ @@ -431,11 +431,11 @@ set object [next {*}$args] ::oo::objdefine $object { method destroy {} { - ::return -code error -errorcode {TCLOO SINGLETON} \ + ::return -code error -errorcode {TCL OO SINGLETON} \ "may not destroy a singleton object" } method <cloned> -unexport {originObject} { - ::return -code error -errorcode {TCLOO SINGLETON} \ + ::return -code error -errorcode {TCL OO SINGLETON} \ "may not clone a singleton object" } } |