look for styles in the libview package-dir as well
authorClaus Gittinger <cg@exept.de>
Wed, 01 Dec 1999 19:42:26 +0100
changeset 3048 df43567e46cd
parent 3047 021c2b15c27f
child 3049 d5f2b3f66e37
look for styles in the libview package-dir as well
ViewStyle.st
--- a/ViewStyle.st	Wed Dec 01 19:32:54 1999 +0100
+++ b/ViewStyle.st	Wed Dec 01 19:42:26 1999 +0100
@@ -59,13 +59,16 @@
 
     prefs := self new.
     (aFileName endsWith:'.style') ifTrue:[
-	nm := aFileName copyWithoutLast:6
+        nm := aFileName copyWithoutLast:6
     ] ifFalse:[
-	nm := aFileName
+        nm := aFileName
     ].
     prefs at:#name put:nm. 
 
     failed := (prefs readFromFile:aFileName directory:'resources') isNil.
+    failed ifTrue:[
+        failed := (prefs readFromFile:aFileName directory:'packages/stx/libview/resources') isNil.
+    ].
     prefs at:#fileReadFailed put:failed. 
     ^ prefs
 
@@ -205,5 +208,5 @@
 !ViewStyle class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ViewStyle.st,v 1.17 1999-06-24 12:47:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ViewStyle.st,v 1.18 1999-12-01 18:42:26 cg Exp $'
 ! !