--- a/Project.st	Wed Feb 28 14:17:12 2001 +0100
+++ b/Project.st	Wed Feb 28 14:18:40 2001 +0100
@@ -1276,8 +1276,7 @@
 loadFromProjectFile:aFilename
     "fill all of my attributes from a projects file (.prj-file)"
 
-    |f l pack targetConditions s sourcesSubDir files module dir
-     methodsFile formatVersion|
+    |f pack targetConditions s module dir formatVersion|
 
     f := aFilename asFilename.
     directoryName := f directory pathName.
@@ -1340,22 +1339,9 @@
     properties isNil ifTrue:[
         properties := IdentityDictionary new
     ].
-    properties at:#'targetconditions' put:targetConditions.
-
-    sourcesSubDir := pack at:'sources' ifAbsent:nil.
-    sourcesSubDir notNil ifTrue:[
-        properties at:#'sourcesDirectory' put:sourcesSubDir.
-    ].
-"/    methodsFile := pack at:'methodsFile' ifAbsent:nil.
-"/    methodsFile size > 0 ifTrue:[
-"/        properties at:#'methodsFile' put:methodsFile.
-"/    ].
+    properties at:#targetconditions put:targetConditions.
+    properties declare:#sourcesDirectory from:pack.
     properties declare:#methodsFile from:pack.
-
-"/    files := pack at:'files' ifAbsent:nil.
-"/    files notNil ifTrue:[
-"/        properties at:#'files' put:files.
-"/    ].
     properties declare:#files from:pack.
 
     "/ fetch class info
@@ -3900,6 +3886,6 @@
 !Project class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.167 2000-12-01 15:44:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.168 2001-02-28 13:18:40 stefan Exp $'
 ! !
 Project initialize!