--- a/ResourcePack.st	Wed Oct 25 17:23:52 2006 +0200
+++ b/ResourcePack.st	Fri Oct 27 19:24:17 2006 +0200
@@ -292,9 +292,22 @@
     "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."
 
+    ^ self forPackage:package resourceFileName:'resources.rs' cached:cached
+
+    "
+     ResourcePack forPackage:'stx:libbasic' cached:false     
+    "
+
+    "Modified: / 19-10-2006 / 23:18:28 / cg"
+!
+
+forPackage:package resourceFileName:resourceFileName cached:cached
+    "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 file|
 
-    fullName := package , '/resources/resources.rs'.
+    fullName := package , '/resources/',resourceFileName.
 
     cached ifTrue:[
         pack := self searchCacheFor:fullName.
@@ -303,7 +316,7 @@
 
     rsrcDir := Smalltalk projectDirectoryForPackage:package.
     rsrcDir isNil ifTrue:[
-        file := Smalltalk getResourceFileName:'resources.rs' forPackage:package.
+        file := Smalltalk getResourceFileName:resourceFileName forPackage:package.
         file isNil ifTrue:[^ nil].
         rsrcDir := file asFilename directory.
     ] ifFalse:[
@@ -311,12 +324,12 @@
         rsrcDir exists ifFalse:[^ nil].
     ].
 
-    pack := self fromFile:'resources.rs' directory:rsrcDir cached:cached.
+    pack := self fromFile:resourceFileName directory:rsrcDir cached:cached.
     pack packsClassOrFileName:fullName.
     ^ pack
 
     "
-     ResourcePack forPackage:'stx:libbasic' cached:false     
+     ResourcePack forPackage:'stx:libbasic' resourceFileName:'resources.rs' cached:false     
     "
 
     "Modified: / 19-10-2006 / 23:18:28 / cg"
@@ -1266,7 +1279,7 @@
 !ResourcePack class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.120 2006-10-23 21:11:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.121 2006-10-27 17:24:17 cg Exp $'
 ! !
 
 ResourcePack initialize!