--- a/Class.st	Thu Mar 03 13:19:26 2005 +0100
+++ b/Class.st	Fri Mar 04 11:13:20 2005 +0100
@@ -4180,6 +4180,19 @@
     "Modified: 19.9.1997 / 10:42:25 / cg"
 !
 
+projectDirectory
+    "return my projects directory - thats where the sources, binaries, classLib, 
+     resources etc. are typically found."
+
+    ^ Smalltalk projectDirectoryForClass:self
+
+    "
+     Object projectDirectory
+     View projectDirectory
+     ApplicationModel projectDirectory
+    "
+!
+
 resourceDirectory
     "return the directory where my resource file is supposed to live.
      Here, take the package and assume that a directory named 'resources' exists
@@ -4912,5 +4925,5 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.483 2005-02-25 16:41:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.484 2005-03-04 10:13:20 cg Exp $'
 ! !