--- a/ResourcePack.st	Fri Sep 30 18:07:48 2005 +0200
+++ b/ResourcePack.st	Fri Sep 30 18:31:16 2005 +0200
@@ -277,7 +277,7 @@
     "get the full resource definitions given a package id (such as stx:libbasic').
      Also optionally leave the resulting pack in the cache for faster access next time."
 
-    |fullName pack rsrcDir|
+    |fullName pack rsrcDir file|
 
     fullName := package , '/resources/resources.rs'.
 
@@ -287,7 +287,15 @@
     ].
 
     rsrcDir := Smalltalk projectDirectoryForPackage:package.
-    rsrcDir isNil ifTrue:[^ nil].
+    rsrcDir isNil ifTrue:[
+        file := Smalltalk getResourceFileName:'resources.rs' forPackage:package.
+        file isNil ifTrue:[^ nil].
+        rsrcDir := file asFilename directory.
+        self halt.
+    ] ifFalse:[
+        rsrcDir := rsrcDir asFilename construct:'resources'.
+        rsrcDir exists ifFalse:[^ nil].
+    ].
 
     rsrcDir := rsrcDir asFilename construct:'resources'.
     rsrcDir exists ifFalse:[^ nil].
@@ -1091,7 +1099,7 @@
 !ResourcePack class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.101 2005-07-11 13:23:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.102 2005-09-30 16:31:16 cg Exp $'
 ! !
 
 ResourcePack initialize!