--- a/Project.st	Sun Sep 26 13:16:49 1999 +0200
+++ b/Project.st	Sun Sep 26 15:29:45 1999 +0200
@@ -20,15 +20,15 @@
 	category:'System-Support'
 !
 
-Object subclass:#ClassInfo
-	instanceVariableNames:'conditionForInclusion className classFileName'
+Object subclass:#MethodInfo
+	instanceVariableNames:'conditionForInclusion methodName className fileName'
 	classVariableNames:''
 	poolDictionaries:''
 	privateIn:Project
 !
 
-Object subclass:#MethodInfo
-	instanceVariableNames:'conditionForInclusion methodName className fileName'
+Object subclass:#ClassInfo
+	instanceVariableNames:'conditionForInclusion className classFileName'
 	classVariableNames:''
 	poolDictionaries:''
 	privateIn:Project
@@ -2421,30 +2421,30 @@
     "/ check for loaded class-library - assume loaded if present.
     binaryModule := ObjectMemory binaryModuleInfo detect:[:i | i package = self package] ifNone:nil.
     binaryModule notNil ifTrue:[
-	^ true
+        ^ true
     ].
 
     "/ check for all classes ...
     self classes do:[:aClassOrClassName |
-	aClassOrClassName isBehavior ifFalse:[
-	    aClassOrClassName isSymbol ifTrue:[
-		(cls := Smalltalk at:aClassOrClassName) isNil ifTrue:[
-		    ^ false
-		].
-		cls isBehavior ifFalse:[^ false].
-		cls isLoaded ifFalse:[^ false].
-	    ] ifFalse:[
-		self halt.
-		^ false
-	    ]
-	]
+        aClassOrClassName isBehavior ifFalse:[
+            aClassOrClassName isSymbol ifTrue:[
+                (cls := Smalltalk at:aClassOrClassName) isNil ifTrue:[
+                    ^ false
+                ].
+                cls isBehavior ifFalse:[^ false].
+                cls isLoaded ifFalse:[^ false].
+            ] ifFalse:[
+                self halt.
+                ^ false
+            ]
+        ]
     ].
 
     "/ check for all patches & extensions ...
     self methods do:[:aMethodInfo |
-	aMethodInfo method isNil ifTrue:[
-	    ^ false
-	].
+        aMethodInfo theMethod isNil ifTrue:[
+            ^ false
+        ].
     ].
 
     ^ true
@@ -2454,6 +2454,7 @@
      (Project projectWithId:#'stx:goodies/persistency') isLoaded 
     "
 
+    "Modified: / 26.9.1999 / 13:39:55 / cg"
 !
 
 methodInfo
@@ -2640,44 +2641,6 @@
     "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::ClassInfo methodsFor:'printing & storing'!
-
-displayString
-    ^ 'ClassInfo: ' , className
-! !
-
 !Project::MethodInfo methodsFor:'accessing'!
 
 className
@@ -2731,16 +2694,75 @@
 !Project::MethodInfo methodsFor:'queries'!
 
 method
+    self obsoleteMethodWarning.
+    ^ self theMethod.
+
+    "Modified: / 26.9.1999 / 13:40:16 / cg"
+!
+
+theMethod
     |cls|
 
     cls := Smalltalk classNamed:className.
     cls isNil ifTrue:[ ^ nil].
     ^ cls compiledMethodAt:methodName asSymbol.
+
+    "Created: / 26.9.1999 / 13:39:07 / 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::ClassInfo methodsFor:'printing & storing'!
+
+displayString
+    ^ 'ClassInfo: ' , className
+! !
+
+!Project::ClassInfo methodsFor:'queries'!
+
+theClass
+    |cls|
+
+    cls := Smalltalk classNamed:className.
+    cls isNil ifTrue:[ ^ nil].
+    ^ cls
+
+    "Created: / 26.9.1999 / 13:39:00 / cg"
 ! !
 
 !Project class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.111 1999-09-25 13:20:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.112 1999-09-26 13:29:45 cg Exp $'
 ! !
 Project initialize!