--- 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