diff -r 5b83e8406d5d -r 131d0413b25b ProceedError.st --- a/ProceedError.st Fri Apr 19 09:38:48 2013 +0200 +++ b/ProceedError.st Tue Apr 23 14:27:19 2013 +0100 @@ -12,10 +12,10 @@ "{ Package: 'stx:libbasic' }" Warning subclass:#ProceedError - instanceVariableNames:'' - classVariableNames:'' - poolDictionaries:'' - category:'Kernel-Exceptions-Errors' + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Kernel-Exceptions-Errors' ! !ProceedError class methodsFor:'documentation'! @@ -53,6 +53,7 @@ ! ! + !ProceedError class methodsFor:'initialization'! initialize @@ -66,13 +67,14 @@ ! ! + !ProceedError methodsFor:'default actions'! defaultAction "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. @@ -94,17 +96,16 @@ " ! ! + !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 $' ! version_SVN ^ '$Id: ProceedError.st 10761 2012-01-19 11:46:00Z vranyj1 $' ! ! + ProceedError initialize! - - -