GenericException.st
branchjv
changeset 18045 c0c600e0d3b3
parent 18040 a11a12546f23
parent 15101 7d5920efeb41
child 18049 5b83e8406d5d
--- a/GenericException.st	Tue Apr 16 14:27:04 2013 +0200
+++ b/GenericException.st	Thu Apr 18 20:41:50 2013 +0200
@@ -173,7 +173,7 @@
 
 initialize
     NotifierString := 'unknown exception'.
-    StrictRaising := false.     "set to true to check weather a signal may be raised proceedable"
+    StrictRaising := false.     "set to true to check whether a signal may be raised proceedable"
 
     "Modified: / 04-08-1999 / 09:06:26 / stefan"
     "Modified: / 17-11-2010 / 17:53:13 / cg"
@@ -200,21 +200,6 @@
 ! !
 
 
-!GenericException class methodsFor:'Compatibility-Dolphin'!
-
-signal:messageText
-    "raise a signal proceedable or nonproceedable (whichever is right).
-     The argument is used as messageText."
-
-    <context: #return>
-
-    ^ (self newException
-                suspendedContext:thisContext sender
-                errorString:messageText)
-        raiseSignal.
-
-    "Modified: / 10-08-2010 / 09:41:56 / cg"
-! !
 
 !GenericException class methodsFor:'Compatibility-Squeak'!
 
@@ -2324,11 +2309,11 @@
 !GenericException class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.134 2013-03-26 14:20:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.136 2013-04-17 18:22:11 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.134 2013-03-26 14:20:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.136 2013-04-17 18:22:11 cg Exp $'
 ! !