*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Mon, 29 Mar 1999 12:50:15 +0200
changeset 333 4a6780f29c71
parent 332 6cda703e3dd5
child 334 4f2f36707f3a
*** empty log message ***
display.rc
host.rc
--- a/display.rc	Mon Mar 29 09:27:37 1999 +0200
+++ b/display.rc	Mon Mar 29 12:50:15 1999 +0200
@@ -394,7 +394,13 @@
 	"
 	Display supportsDeepIcons:false.
 	Smalltalk isStandAloneApp ifFalse:[
-	    ('display.rc [info]: trying display setup ''d_' , displayType , '.rc'' ...') infoPrintCR.
+	    ('display.rc [info]: ') infoPrint.
+	    (Smalltalk getSystemFileName:('d_' , displayType , '.rc')) isNil ifTrue:[
+		'trying' infoPrint.
+	    ] ifFalse:[
+		'reading' infoPrint.
+	    ].
+	    (' display setup ''d_' , displayType , '.rc'' ...') infoPrintCR.
 	].
 
 	Smalltalk fileIn:('d_' , displayType , '.rc')
--- a/host.rc	Mon Mar 29 09:27:37 1999 +0200
+++ b/host.rc	Mon Mar 29 12:50:15 1999 +0200
@@ -195,7 +195,13 @@
 "/ h_<osType>.rc
 "/
 (Smalltalk at:#'_ImageOSTypeName') ~= sysType ifTrue:[
-    ('host.rc [info]: trying host setup h_' , sysType , '.rc ...') infoPrintCR.
+    ('host.rc [info]: ') infoPrint.
+    (Smalltalk getSystemFileName:('h_' , sysType , '.rc')) isNil ifTrue:[
+	'trying' infoPrint.
+    ] ifFalse:[
+	'reading' infoPrint.
+    ].
+    (' host setup h_' , sysType , '.rc ...') infoPrintCR.
 
     s := Smalltalk systemFileStreamFor:('h_' , sysType , '.rc').
     s notNil ifTrue:[