--- 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 $'
! !