--- 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!