--- a/GenericException.st Mon May 13 15:41:06 2013 +0200
+++ b/GenericException.st Mon May 13 15:47:00 2013 +0200
@@ -184,7 +184,7 @@
new
"{ Pragma: +inlineNew }"
- ^ self basicNew setSignal:self.
+ ^ self basicNew creator:self.
"Modified: / 23.7.1999 / 13:53:12 / stefan"
"Created: / 24.7.1999 / 13:21:13 / stefan"
@@ -193,7 +193,7 @@
newException
"{ Pragma: +inlineNew }"
- ^ self basicNew setSignal:self.
+ ^ self basicNew creator:self.
"Created: / 23.7.1999 / 13:45:49 / stefan"
"Modified: / 24.7.1999 / 13:21:25 / stefan"
@@ -221,6 +221,7 @@
self raiseErrorString:messageText
! !
+
!GenericException class methodsFor:'accessing'!
errorString
@@ -1392,7 +1393,9 @@
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."
+ the creator. Marked as obsolete, until the change is done!!"
+
+ self obsoleteMethodWarning:'meaning of #signal will change. Use #creator'.
^ signal ? self class
@@ -2253,10 +2256,9 @@
!GenericException methodsFor:'setup'!
-setSignal:aSignal
+creator:aSignal
"set the fields usable for inspection by the handler
- - only to be sent from the signal when raising.
- CG: added this one to avoid confusion with dolphin signal: (which raises the ex)"
+ - only to be sent from the signal when raising."
signal := aSignal.
!
@@ -2318,11 +2320,11 @@
!GenericException class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.137 2013-04-19 09:41:15 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.138 2013-05-13 13:47:00 stefan Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.137 2013-04-19 09:41:15 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.138 2013-05-13 13:47:00 stefan Exp $'
! !