--- a/GenericException.st Tue Sep 01 07:48:53 2015 +0200
+++ b/GenericException.st Tue Sep 01 07:49:03 2015 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 1993 by Claus Gittinger
All Rights Reserved
@@ -214,16 +216,6 @@
"Created: / 20-11-2006 / 14:00:09 / cg"
!
-signal:messageText
- "raise a signal proceedable or nonproceedable (whichever is right).
- The argument is used as messageText.
- ANSI/Dolphin compatibility."
-
- <resource: #skipInDebuggersWalkBack>
-
- self raiseErrorString:messageText
-!
-
signalWith:messageText
"raise a signal proceedable or nonproceedable (whichever is right).
The argument is used as messageText.
@@ -234,6 +226,7 @@
self raiseErrorString:messageText
! !
+
!GenericException class methodsFor:'accessing'!
errorString
@@ -351,13 +344,6 @@
^ SignalSet with:self with:anExceptionHandler
! !
-!GenericException class methodsFor:'misc ui support'!
-
-iconInBrowserSymbol
- <resource: #programImage>
-
- ^ #exceptionClassBrowserIcon
-! !
!GenericException class methodsFor:'printing'!
@@ -1214,9 +1200,9 @@
"return the creator of the exception.
For class based exceptions, that is the exception class;
for signals, that is the signal itself.
- This used to be called signal in earlier versions,
- but due to the conflict with VSE, Squeak, where signal means 'raise',
- signal was obsoleted by this method."
+ This used to be called 'signal' in earlier versions,
+ but due to the conflict with VSE, Squeak and others,
+ where 'signal' means 'raise', 'signal' was obsoleted by this method."
signal notNil ifTrue:[^ signal] ifFalse:[^ self class]
!
@@ -2308,17 +2294,6 @@
^ self doRaise
"Created: / 10-08-2010 / 09:50:54 / cg"
-!
-
-signal
- "return the signal, that caused the exception.
- Warning and notice: in ANSI, signal means: raise;
- here and in old VW, it is the accessor to the creator signal/exception.
-
- This has now changed to be compatible with ANSI/Squeak.
- Please use #creator to get the creator."
-
- self raiseSignal.
! !
!GenericException methodsFor:'setup'!
@@ -2387,11 +2362,11 @@
!GenericException class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.160 2015-01-12 16:07:53 cg Exp $'
+ ^ '$Header$'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.160 2015-01-12 16:07:53 cg Exp $'
+ ^ '$Header$'
! !