also search in libview package
authorClaus Gittinger <cg@exept.de>
Wed, 01 Dec 1999 20:20:41 +0100
changeset 3051 93c3f629d3dc
parent 3050 55940674bfa4
child 3052 89e30d1da2d7
also search in libview package
ViewStyle.st
--- a/ViewStyle.st	Wed Dec 01 20:19:11 1999 +0100
+++ b/ViewStyle.st	Wed Dec 01 20:20:41 1999 +0100
@@ -71,7 +71,7 @@
     "/ generic search first (allows for user to overwrite it)
     failed := (prefs readFromFile:aFileName directory:'resources') isNil.
     (failed and:[prjDir notNil]) ifTrue:[
-        failed := (prefs readFromFile:aFileName directory:prjDir) isNil.
+        failed := (prefs readFromFile:aFileName directory:(prjDir , '/resources')) isNil.
     ].
     prefs at:#fileReadFailed put:failed. 
     ^ prefs
@@ -212,5 +212,5 @@
 !ViewStyle class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ViewStyle.st,v 1.19 1999-12-01 19:19:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ViewStyle.st,v 1.20 1999-12-01 19:20:41 cg Exp $'
 ! !