smalltalk.rc
changeset 399 5a842f5d7196
parent 397 5ad969d9ea05
child 401 64a83b800ff7
--- a/smalltalk.rc	Wed Dec 01 17:32:54 1999 +0100
+++ b/smalltalk.rc	Wed Dec 01 23:17:25 1999 +0100
@@ -1,7 +1,8 @@
-"/ MIMEType: application/x-smalltalk-source
 "/
 "/ $Header$
 "/
+"/ MIMEType: application/x-smalltalk-source
+"/
 "/ ST/X startup configuration & command file:
 "/
 "/ startup configuration for smalltalk
@@ -417,13 +418,20 @@
 Smalltalk isStandAloneApp ifFalse:[
     anyWrong := false.
     missing := ''.
-    (Smalltalk getSystemFileName:'resources/SystemBrowser.rs') isNil ifTrue:[
+    (Smalltalk getResourceFileName:'SystemBrowser.rs' forClass:SystemBrowser) isNil ifTrue:[
 	'***********************************************************************' errorPrintCR.
 	'***** ATTENTION: please check installation of your >>resource<< files' errorPrintCR.
 	'***** I will not be able to give non-english messages' errorPrintCR.
 	anyWrong := true.
 	missing := '''resources'' '.
     ].
+    (Smalltalk getResourceFileName:'normal.style' forClass:View) isNil ifTrue:[
+	'***********************************************************************' errorPrintCR.
+	'***** ATTENTION: please check installation of your >>style<< files' errorPrintCR.
+	'***** I will use a plain b&w viewStyle as a fallBack' errorPrintCR.
+	anyWrong := true.
+	missing := missing , '''resources'' '.
+    ].
     (Smalltalk getSystemFileName:'source/Object.st') isNil ifTrue:[
       (Smalltalk getSystemFileName:'source/source.zip') isNil ifTrue:[
 	(Smalltalk getSystemFileName:'source/libbasic.zip') isNil ifTrue:[
@@ -444,19 +452,13 @@
 	]
       ]
     ].
-    (Smalltalk getSystemFileName:'bitmaps/SBrowser.xbm') isNil ifTrue:[
+    ((Smalltalk getSystemFileName:'bitmaps/SBrowser.xbm') isNil 
+    and:[(Smalltalk getSystemFileName:'packages/libtool/bitmaps/SBrowser.xbm') isNil]) ifTrue:[
 	'***********************************************************************' errorPrintCR.
 	'***** ATTENTION: please check installation of your >>bitmap<< files' errorPrintCR.
 	anyWrong := true.
 	missing := missing , '''bitmaps'' '.
     ].
-    (Smalltalk getSystemFileName:'resources/normal.style') isNil ifTrue:[
-	'***********************************************************************' errorPrintCR.
-	'***** ATTENTION: please check installation of your >>style<< files' errorPrintCR.
-	'***** I will use a plain b&w viewStyle as a fallBack' errorPrintCR.
-	anyWrong := true.
-	missing := missing , '''resources'' '.
-    ].
 
     anyWrong ifTrue:[
 	'*****' errorPrintCR.