--- a/Project.st Sat Sep 11 17:04:37 1999 +0200
+++ b/Project.st Sat Sep 11 17:09:37 1999 +0200
@@ -21,15 +21,15 @@
category:'System-Support'
!
-Object subclass:#MethodInfo
- instanceVariableNames:'methodName className fileName'
+Object subclass:#ClassInfo
+ instanceVariableNames:'conditionForInclusion className classFileName'
classVariableNames:''
poolDictionaries:''
privateIn:Project
!
-Object subclass:#ClassInfo
- instanceVariableNames:'conditionForInclusion className classFileName'
+Object subclass:#MethodInfo
+ instanceVariableNames:'methodName className fileName'
classVariableNames:''
poolDictionaries:''
privateIn:Project
@@ -161,24 +161,21 @@
|packageID prj who mthdClass|
packageID := aMethod package asSymbol.
- who := aMethod who.
- who notNil ifTrue:[ "/ skip unbound methods ...
- mthdClass := who methodClass.
- mthdClass package ~= packageID ifTrue:[
- (packages includes:packageID) ifFalse:[
- packages add:packageID.
+ (packages includes:packageID) ifFalse:[
+ who := aMethod who.
+ who notNil ifTrue:[ "/ skip unbound methods ...
+ packages add:packageID.
- "/ a new one ...
- prj := self new.
+ "/ a new one ...
+ prj := self new.
"/ prj name:libName.
- prj package:packageID.
- prj type:#library.
- prj directory:'???'.
- prj repositoryModule:'stx'.
- prj repositoryDirectory:'???'.
- prj isLoaded:true.
- AllProjects add:prj.
- ].
+ prj package:packageID.
+ prj type:#library.
+ prj directory:'???'.
+ prj repositoryModule:'stx'.
+ prj repositoryDirectory:'???'.
+ prj isLoaded:true.
+ AllProjects add:prj.
]
]
].
@@ -2048,6 +2045,38 @@
"Modified: 14.2.1997 / 15:38:47 / cg"
! !
+!Project::ClassInfo methodsFor:'accessing'!
+
+classFileName
+ "return the value of the instance variable 'classFileName' (automatically generated)"
+
+ ^ classFileName!
+
+classFileName:something
+ "set the value of the instance variable 'classFileName' (automatically generated)"
+
+ classFileName := something.!
+
+className
+ "return the value of the instance variable 'className' (automatically generated)"
+
+ ^ className!
+
+className:something
+ "set the value of the instance variable 'className' (automatically generated)"
+
+ className := something.!
+
+conditionForInclusion
+ "return the value of the instance variable 'conditionForInclusion' (automatically generated)"
+
+ ^ conditionForInclusion!
+
+conditionForInclusion:something
+ "set the value of the instance variable 'conditionForInclusion' (automatically generated)"
+
+ conditionForInclusion := something.! !
+
!Project::MethodInfo methodsFor:'accessing'!
className
@@ -2080,41 +2109,9 @@
methodName := something.! !
-!Project::ClassInfo methodsFor:'accessing'!
-
-classFileName
- "return the value of the instance variable 'classFileName' (automatically generated)"
-
- ^ classFileName!
-
-classFileName:something
- "set the value of the instance variable 'classFileName' (automatically generated)"
-
- classFileName := something.!
-
-className
- "return the value of the instance variable 'className' (automatically generated)"
-
- ^ className!
-
-className:something
- "set the value of the instance variable 'className' (automatically generated)"
-
- className := something.!
-
-conditionForInclusion
- "return the value of the instance variable 'conditionForInclusion' (automatically generated)"
-
- ^ conditionForInclusion!
-
-conditionForInclusion:something
- "set the value of the instance variable 'conditionForInclusion' (automatically generated)"
-
- conditionForInclusion := something.! !
-
!Project class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.89 1999-09-06 16:17:20 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.90 1999-09-11 15:09:37 cg Exp $'
! !
Project initialize!