dont launch box when fileIn errors occur during startup
authorClaus Gittinger <cg@exept.de>
Wed, 17 Jan 1996 13:27:58 +0100
changeset 875 2bb6fea4cb55
parent 874 fc2f0ffb75ae
child 876 2fb0b80d8731
dont launch box when fileIn errors occur during startup
PosStream.st
PositionableStream.st
--- a/PosStream.st	Wed Jan 17 12:46:35 1996 +0100
+++ b/PosStream.st	Wed Jan 17 13:27:58 1996 +0100
@@ -301,9 +301,17 @@
      occurs while filing in"
 
     Smalltalk isInitialized ifFalse:[
-	'error during startup: ' errorPrint. message errorPrintNL.
+	'fileIn error during startup: ' errorPrint. message errorPrintNL.
 	^ #debug
     ].
+    "/
+    "/ are we in the startup sequence of an image restart ?
+    "/
+    Processor activeProcessIsSystemProcess ifTrue:[
+	'fileIn error during startup: ' errorPrint. message errorPrintNL.
+	^ #continue
+    ].
+
     ^ OptionBox 
 	  request:message 
 	  label:'Error in fileIn'
@@ -547,6 +555,6 @@
 !PositionableStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/PosStream.st,v 1.37 1995-12-15 12:47:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/PosStream.st,v 1.38 1996-01-17 12:27:58 cg Exp $'
 ! !
 PositionableStream initialize!
--- a/PositionableStream.st	Wed Jan 17 12:46:35 1996 +0100
+++ b/PositionableStream.st	Wed Jan 17 13:27:58 1996 +0100
@@ -301,9 +301,17 @@
      occurs while filing in"
 
     Smalltalk isInitialized ifFalse:[
-	'error during startup: ' errorPrint. message errorPrintNL.
+	'fileIn error during startup: ' errorPrint. message errorPrintNL.
 	^ #debug
     ].
+    "/
+    "/ are we in the startup sequence of an image restart ?
+    "/
+    Processor activeProcessIsSystemProcess ifTrue:[
+	'fileIn error during startup: ' errorPrint. message errorPrintNL.
+	^ #continue
+    ].
+
     ^ OptionBox 
 	  request:message 
 	  label:'Error in fileIn'
@@ -547,6 +555,6 @@
 !PositionableStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.37 1995-12-15 12:47:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.38 1996-01-17 12:27:58 cg Exp $'
 ! !
 PositionableStream initialize!