equal
deleted
inserted
replaced
344 labels := #('Cancel' 'Skip' 'Debug' 'Dont ask again' 'Continue'). |
344 labels := #('Cancel' 'Skip' 'Debug' 'Dont ask again' 'Continue'). |
345 values := #(#abort #skip #debug #continueForAll #continue). |
345 values := #(#abort #skip #debug #continueForAll #continue). |
346 ] ifFalse:[ |
346 ] ifFalse:[ |
347 labels := #('Cancel' 'Skip' 'Debug' 'Continue'). |
347 labels := #('Cancel' 'Skip' 'Debug' 'Continue'). |
348 values := #(#abort #skip #debug #continue). |
348 values := #(#abort #skip #debug #continue). |
|
349 ]. |
|
350 AbortAllSignal isHandled ifTrue:[ |
|
351 labels := #('Cancel All') , labels. |
|
352 values := #(#cancelAll) , values. |
349 ]. |
353 ]. |
350 |
354 |
351 ^ OptionBox |
355 ^ OptionBox |
352 request:message |
356 request:message |
353 label:'Error in fileIn' |
357 label:'Error in fileIn' |
751 ]. |
755 ]. |
752 action == #abort ifTrue:[ |
756 action == #abort ifTrue:[ |
753 AbortSignal raise. |
757 AbortSignal raise. |
754 ex return |
758 ex return |
755 ]. |
759 ]. |
|
760 action == #cancelAll ifTrue:[ |
|
761 AbortAllSignal raise. |
|
762 ex return |
|
763 ]. |
756 action == #skip ifTrue:[ |
764 action == #skip ifTrue:[ |
757 ex proceedWith:nil |
765 ex proceedWith:nil |
758 ]. |
766 ]. |
759 action == #debug ifTrue:[ |
767 action == #debug ifTrue:[ |
760 Debugger enter:ex suspendedContext |
768 Debugger enter:ex suspendedContext |
1119 ! ! |
1127 ! ! |
1120 |
1128 |
1121 !PositionableStream class methodsFor:'documentation'! |
1129 !PositionableStream class methodsFor:'documentation'! |
1122 |
1130 |
1123 version |
1131 version |
1124 ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.112 2002-07-15 09:28:50 stefan Exp $' |
1132 ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.113 2002-07-31 19:46:46 cg Exp $' |
1125 ! ! |
1133 ! ! |
1126 PositionableStream initialize! |
1134 PositionableStream initialize! |