UndefinedObject.st
changeset 23012 7219e999f0b5
parent 22640 a09d68b5a519
child 23261 7afe7f44be65
--- a/UndefinedObject.st	Thu May 24 21:08:42 2018 +0200
+++ b/UndefinedObject.st	Thu May 24 21:08:54 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1988 by Claus Gittinger
 	      All Rights Reserved
@@ -252,9 +254,10 @@
 addDependent:someObject
     "raise an error here - nil may not have dependents (it never changes anyway)"
 
-    self error:'nil may not have dependents' mayProceed:true
+    self proceedableError:'nil may not have dependents'
 
     "Modified: / 28-07-2010 / 19:20:36 / cg"
+    "Modified: / 24-05-2018 / 21:05:28 / Claus Gittinger"
 !
 
 dependents
@@ -501,7 +504,7 @@
     |category ownerClass|
     
     (ownerClass := ownerClassArg) isNil ifTrue:[
-        self error:'Nil (undefined) owner class - proceed to define as global' mayProceed:true.
+        self proceedableError:'Nil (undefined) owner class - proceed to define as global'.
     ] ifFalse:[
         category := ownerClassArg category
     ].
@@ -523,8 +526,9 @@
                     changed:true
         ]
 
-    "Modified: / 3.1.1997 / 16:00:39 / cg"
-    "Modified: / 18.3.1999 / 18:30:07 / stefan"
+    "Modified: / 03-01-1997 / 16:00:39 / cg"
+    "Modified: / 18-03-1999 / 18:30:07 / stefan"
+    "Modified: / 24-05-2018 / 21:05:47 / Claus Gittinger"
 ! !
 
 !UndefinedObject methodsFor:'testing'!
@@ -751,7 +755,6 @@
 ! !
 
 
-
 !UndefinedObject class methodsFor:'documentation'!
 
 version