43 ProceedError is raised to indicate that a handler tried to |
45 ProceedError is raised to indicate that a handler tried to |
44 proceed an exception marked as nonproceedable. |
46 proceed an exception marked as nonproceedable. |
45 |
47 |
46 The parameter is the exception which tried to proceed. |
48 The parameter is the exception which tried to proceed. |
47 |
49 |
48 NOTE: In the past ST/X didn't distinguish between proceedable |
50 NOTE: In the past, ST/X didn't distinguish between proceedable |
49 and non-proceedable exceptions. To make transistion easier, |
51 and non-proceedable exceptions. |
50 this exception is a warning for now. In a future release of |
52 To make transistion easier, this exception is a warning for now. |
51 ST/X, this exception will be changed to be an error |
53 In a future release of ST/X, this exception might be changed to be an error |
52 (child of SignalError). |
54 (child of SignalError). |
53 Please fix your code. |
55 Please fix your code. |
54 " |
56 " |
55 |
|
56 ! ! |
57 ! ! |
57 |
58 |
58 !ProceedError class methodsFor:'initialization'! |
59 !ProceedError class methodsFor:'initialization'! |
59 |
60 |
60 initialize |
61 initialize |
69 ! ! |
70 ! ! |
70 |
71 |
71 !ProceedError methodsFor:'default actions'! |
72 !ProceedError methodsFor:'default actions'! |
72 |
73 |
73 defaultAction |
74 defaultAction |
74 "make proceeding from a non-proceedable raise a warning for now. |
75 "make proceeding from a non-proceedable print a warning for now. |
75 This will change in future revisions" |
76 This may change in future revisions. |
|
77 cg: no, this will stay as it is." |
76 |
78 |
77 |con| |
79 |con| |
78 |
80 |
79 con := parameter suspendedContext. |
81 con := parameter suspendedContext. |
80 |
82 |
81 ('WARNING: signal <', parameter creator printString, '> has been raised nonproceedable') errorPrintCR. |
83 ('WARNING: proceeding signal <', parameter creator printString, '>') errorPrintCR. |
82 (' by: ', con printString) errorPrintCR. |
84 (' which was raised nonproceedable by: ', con printString) errorPrintCR. |
83 con notNil ifTrue:[ |
85 con notNil ifTrue:[ |
84 (' : ', con sender printString) errorPrintCR. |
86 (' : ', con sender printString) errorPrintCR. |
85 (' : ', con sender sender printString) errorPrintCR. |
87 (' : ', con sender sender printString) errorPrintCR. |
86 ]. |
88 ]. |
87 (' ', suspendedContext printString , ' tries to proceed.') errorPrintCR. |
89 (' in: ', suspendedContext printString , ' tries to proceed.') errorPrintCR. |
88 (' in: ', thisContext sender printString) errorPrintCR. |
90 (' : ', thisContext sender printString) errorPrintCR. |
89 (' : ', thisContext sender sender printString) errorPrintCR. |
91 (' : ', thisContext sender sender printString) errorPrintCR. |
90 (' : ', thisContext sender sender sender printString) errorPrintCR. |
92 (' : ', thisContext sender sender sender printString) errorPrintCR. |
91 (' This may be an error in future ST/X versions.') errorPrintCR. |
93 "/ (' This may be an error in future ST/X versions.') errorPrintCR. |
92 |
94 |
93 self proceedWith:nil. |
95 self proceedWith:nil. |
94 |
96 |
95 " |
97 " |
96 Object errorSignal handle:[:ex| |
98 Object errorSignal handle:[:ex| |