# HG changeset patch # User Claus Gittinger # Date 1062085852 -7200 # Node ID 9ac1e4ee012ac2afb3e9c344b8fc43b07a605530 # Parent 905ec920be31c3bc9d8983d3bf3c6ff2abb66dc1 *** empty log message *** diff -r 905ec920be31 -r 9ac1e4ee012a PositionableStream.st --- a/PositionableStream.st Thu Aug 28 15:11:07 2003 +0200 +++ b/PositionableStream.st Thu Aug 28 17:50:52 2003 +0200 @@ -335,23 +335,23 @@ |labels values| Smalltalk isInitialized ifFalse:[ - 'PositionableStream [warning]: fileIn error during startup: ' errorPrint. message errorPrintCR. - ^ #debug + 'PositionableStream [warning]: fileIn error during startup: ' errorPrint. message errorPrintCR. + ^ #debug ]. "/ "/ are we in the startup sequence of an image restart ? "/ Processor activeProcessIsSystemProcess ifTrue:[ - 'PositionableStream [warning]: fileIn error during startup: ' errorPrint. message errorPrintCR. - ^ #continue + 'PositionableStream [warning]: fileIn error during startup: ' errorPrint. message errorPrintCR. + ^ #continue ]. canContinueForAll ifTrue:[ - labels := #('Cancel' 'Skip' 'Debug' 'Dont ask again' 'Continue'). - values := #(#abort #skip #debug #continueForAll #continue). + labels := #('Cancel' 'Skip' 'Debug' 'Dont ask again' 'Continue'). + values := #(#abort #skip #debug #continueForAll #continue). ] ifFalse:[ - labels := #('Cancel' 'Skip' 'Debug' 'Continue'). - values := #(#abort #skip #debug #continue). + labels := #('Cancel' 'Skip' 'Debug' 'Continue'). + values := #(#abort #skip #debug #continue). ]. AbortAllSignal isHandled ifTrue:[ labels := #('Cancel All') , labels. @@ -359,13 +359,13 @@ ]. ^ OptionBox - request:message - label:'Error in fileIn' - form:(WarningBox iconBitmap) - buttonLabels:labels - values:values - default:#continue - onCancel:#abort. + request:message + label:'Error in fileIn' + form:(WarningBox iconBitmap) + buttonLabels:labels + values:values + default:#continue + onCancel:#abort. "Modified: 10.1.1997 / 18:00:56 / cg" ! @@ -1211,7 +1211,7 @@ !PositionableStream class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.132 2003-08-23 12:09:21 cg Exp $' + ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.133 2003-08-28 15:50:52 cg Exp $' ! ! PositionableStream initialize!