PositionableStream.st
changeset 2130 b9e7e1cf98bd
parent 2005 d77ecd466b5b
child 2153 244e36cbbd9b
--- a/PositionableStream.st	Fri Jan 10 18:47:55 1997 +0100
+++ b/PositionableStream.st	Fri Jan 10 18:50:55 1997 +0100
@@ -304,26 +304,26 @@
      occurs while filing in"
 
     Smalltalk isInitialized ifFalse:[
-	'POSSTREAM: fileIn error during startup: ' errorPrint. message errorPrintNL.
-	^ #debug
+        'PositionableStream [warning]: fileIn error during startup: ' errorPrint. message errorPrintCR.
+        ^ #debug
     ].
     "/
     "/ are we in the startup sequence of an image restart ?
     "/
     Processor activeProcessIsSystemProcess ifTrue:[
-	'POSSTREAM: fileIn error during startup: ' errorPrint. message errorPrintNL.
-	^ #continue
+        'PositionableStream [warning]: fileIn error during startup: ' errorPrint. message errorPrintCR.
+        ^ #continue
     ].
 
     ^ OptionBox 
-	  request:message 
-	  label:'Error in fileIn'
-	  form:(WarningBox iconBitmap)
-	  buttonLabels:#('cancel' 'debug' 'continue')
-	  values:#(#abort #debug #continue)
-	  default:#continue.
+          request:message 
+          label:'Error in fileIn'
+          form:(WarningBox iconBitmap)
+          buttonLabels:#('cancel' 'debug' 'continue')
+          values:#(#abort #debug #continue)
+          default:#continue.
 
-    "Modified: 7.3.1996 / 19:21:36 / cg"
+    "Modified: 10.1.1997 / 18:00:56 / cg"
 !
 
 fileIn
@@ -684,6 +684,6 @@
 !PositionableStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.50 1996-12-19 23:23:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.51 1997-01-10 17:50:55 cg Exp $'
 ! !
 PositionableStream initialize!