8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 "{ Package: 'stx:libbasic' }" |
12 "{ Package: 'stx:libbasic' }" |
|
13 |
|
14 "{ NameSpace: Smalltalk }" |
13 |
15 |
14 Warning subclass:#ProceedError |
16 Warning subclass:#ProceedError |
15 instanceVariableNames:'' |
17 instanceVariableNames:'' |
16 classVariableNames:'' |
18 classVariableNames:'' |
17 poolDictionaries:'' |
19 poolDictionaries:'' |
72 "make proceeding from a non-proceedable raise a warning for now. |
74 "make proceeding from a non-proceedable raise a warning for now. |
73 This will change in future revisions" |
75 This will change in future revisions" |
74 |
76 |
75 ('WARNING: signal <', parameter creator printString, '> has been raised nonproceedable') errorPrintCR. |
77 ('WARNING: signal <', parameter creator printString, '> has been raised nonproceedable') errorPrintCR. |
76 (' by: ', parameter suspendedContext printString) errorPrintCR. |
78 (' by: ', parameter suspendedContext printString) errorPrintCR. |
|
79 (' : ', parameter suspendedContext sender printString) errorPrintCR. |
|
80 (' : ', parameter suspendedContext sender sender printString) errorPrintCR. |
77 (' ', suspendedContext printString , ' tries to proceed.') errorPrintCR. |
81 (' ', suspendedContext printString , ' tries to proceed.') errorPrintCR. |
78 (' This will be an error in future ST/X versions.') errorPrintCR. |
82 (' in: ', thisContext sender printString) errorPrintCR. |
|
83 (' : ', thisContext sender sender printString) errorPrintCR. |
|
84 (' : ', thisContext sender sender sender printString) errorPrintCR. |
|
85 (' This may be an error in future ST/X versions.') errorPrintCR. |
79 |
86 |
80 self proceedWith:nil. |
87 self proceedWith:nil. |
81 |
88 |
82 " |
89 " |
83 Object errorSignal handle:[:ex| |
90 Object errorSignal handle:[:ex| |