--- a/Class.st	Mon Feb 02 17:24:45 2004 +0100
+++ b/Class.st	Tue Feb 03 16:45:01 2004 +0100
@@ -4237,6 +4237,30 @@
     "Modified: 19.9.1997 / 10:42:25 / cg"
 !
 
+resourceDirectory
+    "return the directory where my resource file is supposed to live.
+     Here, take the package and assume that a directory named 'resources' exists
+     in my package directory.
+     Return nil, if no such directory exists."
+
+    |prjDir rsrcDir|
+
+    prjDir := Smalltalk projectDirectoryForClass:self.
+
+    (prjDir notNil 
+    and:[(prjDir := prjDir asFilename) exists
+    and:[(rsrcDir := prjDir construct:'resources') exists]]) ifTrue:[
+        ^ rsrcDir 
+    ].
+    ^ nil
+
+    "
+     Object resourceDirectory    
+     View resourceDirectory      
+     ApplicationModel resourceDirectory  
+    "
+!
+
 resourcePackName
     "return the name which is used as the fileNameBase of my resource file.
      Notice, that this will undergo the same name translation process as
@@ -4810,5 +4834,5 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.452 2004-01-23 15:55:51 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.453 2004-02-03 15:45:01 cg Exp $'
 ! !