class: GenericException
changed:
#new - call initialize
#newException - call initialize
#signal - now raises (ANSI)
--- a/GenericException.st Sat Mar 01 23:33:23 2014 +0100
+++ b/GenericException.st Sun Mar 02 01:17:12 2014 +0100
@@ -185,7 +185,7 @@
new
"{ Pragma: +inlineNew }"
- ^ self basicNew creator:self.
+ ^ self basicNew initialize creator:self.
"Modified: / 23.7.1999 / 13:53:12 / stefan"
"Created: / 24.7.1999 / 13:21:13 / stefan"
@@ -194,7 +194,7 @@
newException
"{ Pragma: +inlineNew }"
- ^ self basicNew creator:self.
+ ^ self basicNew initialize creator:self.
"Created: / 23.7.1999 / 13:45:49 / stefan"
"Modified: / 24.7.1999 / 13:21:25 / stefan"
@@ -1388,17 +1388,6 @@
suspendedContext := raisingContext
!
-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 create.
- This will change in the near future; please use #creator to get
- the creator. Marked as obsolete, until the change is done!!"
-
- self obsoleteFeatureWarning:'meaning of #signal will change. Use #creator to access it, #raiseSignal to raise me'.
- ^ self creator.
-!
-
suspendedContext
"return the context in which the raise occured"
@@ -2294,6 +2283,17 @@
^ 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'!
@@ -2362,11 +2362,11 @@
!GenericException class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.150 2014-02-26 08:42:52 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.151 2014-03-02 00:17:12 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.150 2014-02-26 08:42:52 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.151 2014-03-02 00:17:12 cg Exp $'
! !