From c45f07dc1df8005a25169017d34547b307a5fc14 Mon Sep 17 00:00:00 2001
From: dkf <donal.k.fellows@manchester.ac.uk>
Date: Fri, 8 Mar 2024 15:32:58 +0000
Subject: Corrections to TclOO errorcodes from scripted parts

---
 tools/tclOOScript.tcl | 30 +++++++++++++++---------------
 1 file changed, 15 insertions(+), 15 deletions(-)

diff --git a/tools/tclOOScript.tcl b/tools/tclOOScript.tcl
index 4591a1b..0b75882 100644
--- a/tools/tclOOScript.tcl
+++ b/tools/tclOOScript.tcl
@@ -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"
 		    }
 		}
@@ -492,22 +492,22 @@
 		set prop [lindex $args $i]
 		if {[string match "-*" $prop]} {
 		    return -code error -level 2 \
-			-errorcode {TCLOO PROPERTY_FORMAT} \
+			-errorcode {TCL OO PROPERTY_FORMAT} \
 			"bad property name \"$prop\": must not begin with -"
 		}
 		if {$prop ne [list $prop]} {
 		    return -code error -level 2 \
-			-errorcode {TCLOO PROPERTY_FORMAT} \
+			-errorcode {TCL OO PROPERTY_FORMAT} \
 			"bad property name \"$prop\": must be a simple word"
 		}
 		if {[string first "::" $prop] != -1} {
 		    return -code error -level 2 \
-			-errorcode {TCLOO PROPERTY_FORMAT} \
+			-errorcode {TCL OO PROPERTY_FORMAT} \
 			"bad property name \"$prop\": must not contain namespace separators"
 		}
 		if {[string match {*[()]*} $prop]} {
 		    return -code error -level 2 \
-			-errorcode {TCLOO PROPERTY_FORMAT} \
+			-errorcode {TCL OO PROPERTY_FORMAT} \
 			"bad property name \"$prop\": must not contain parentheses"
 		}
 		set realprop [string cat "-" $prop]
@@ -630,10 +630,10 @@
 		    dict incr opt -level 2
 		    return -options $opt $msg
 		} on break {} {
-		    return -code error -level 2 -errorcode {TCLOO SHENANIGANS} \
+		    return -code error -level 2 -errorcode {TCL OO SHENANIGANS} \
 			"property getter for $prop did a break"
 		} on continue {} {
-		    return -code error -level 2 -errorcode {TCLOO SHENANIGANS} \
+		    return -code error -level 2 -errorcode {TCL OO SHENANIGANS} \
 			"property getter for $prop did a continue"
 		}
 	    }
@@ -671,10 +671,10 @@
 		dict incr opt -level 2
 		return -options $opt $msg
 	    } on break {} {
-		return -code error -level 2 -errorcode {TCLOO SHENANIGANS} \
+		return -code error -level 2 -errorcode {TCL OO SHENANIGANS} \
 		    "property getter for $prop did a break"
 	    } on continue {} {
-		return -code error -level 2 -errorcode {TCLOO SHENANIGANS} \
+		return -code error -level 2 -errorcode {TCL OO SHENANIGANS} \
 		    "property getter for $prop did a continue"
 	    }
 	    return $value
@@ -711,10 +711,10 @@
 		    dict incr opt -level 2
 		    return -options $opt $msg
 		} on break {} {
-		    return -code error -level 2 -errorcode {TCLOO SHENANIGANS} \
+		    return -code error -level 2 -errorcode {TCL OO SHENANIGANS} \
 			"property setter for $prop did a break"
 		} on continue {} {
-		    return -code error -level 2 -errorcode {TCLOO SHENANIGANS} \
+		    return -code error -level 2 -errorcode {TCL OO SHENANIGANS} \
 			"property setter for $prop did a continue"
 		}
 	    }
-- 
cgit v0.12