class: ProceedError
changed: #defaultAction
use #creator instead of #signal
(avoid semantic conflict with ANSI, where signal means: raise)
--- a/ProceedError.st Fri Apr 19 10:39:04 2013 +0200
+++ b/ProceedError.st Fri Apr 19 10:40:03 2013 +0200
@@ -9,9 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
-
-
"{ Package: 'stx:libbasic' }"
Warning subclass:#ProceedError
@@ -75,7 +72,7 @@
"make proceeding from a non-proceedable raise a warning for now.
This will change in future revisions"
- ('WARNING: signal <', parameter signal printString, '> has been raised nonproceedable') errorPrintCR.
+ ('WARNING: signal <', parameter creator printString, '> has been raised nonproceedable') errorPrintCR.
(' by: ', parameter suspendedContext printString) errorPrintCR.
(' ', suspendedContext printString , ' tries to proceed.') errorPrintCR.
(' This will be an error in future ST/X versions.') errorPrintCR.
@@ -100,7 +97,8 @@
!ProceedError class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/ProceedError.st,v 1.5 2003-08-29 19:14:59 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ProceedError.st,v 1.6 2013-04-19 08:40:03 cg Exp $'
! !
+
ProceedError initialize!