*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Thu, 28 Aug 2003 17:50:52 +0200
changeset 7578 9ac1e4ee012a
parent 7577 905ec920be31
child 7579 272f62f6e2a1
*** empty log message ***
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!