--- a/ProjectView.st	Wed Feb 02 13:44:06 2000 +0100
+++ b/ProjectView.st	Wed Feb 02 19:10:12 2000 +0100
@@ -246,29 +246,29 @@
      (i.e. whose packageIdentifier is the same as my Projects packageIdentifier)"
 
     self topView withWaitCursorDo:[
-	|classes packageName methods methodList anyClasses anyMethods ignoredClasses|
+        |classes packageName methods methodList anyClasses anyMethods ignoredClasses|
 
-	anyMethods := anyClasses := false.
+        anyMethods := anyClasses := false.
 
-	packageName := myProject packageName.
-	classes := myProject classes.
-	(classes notNil and:[classes notEmpty]) ifTrue:[
-	    anyClasses := true.
-	].
+        packageName := myProject package.
+        classes := myProject classes.
+        (classes notNil and:[classes notEmpty]) ifTrue:[
+            anyClasses := true.
+        ].
 
-	methods := myProject individualMethods.
-	methods notEmpty ifTrue:[
-	    anyMethods := true.
-	    SystemBrowser browseMethods:methods
-				  title:(resources string:'individual methods in package %1' with:packageName).
-	].
-	anyClasses ifTrue:[
-	    SystemBrowser browseClasses:classes
-				  title:(resources string:'classes in package %1' with:packageName).
-	].
-	(anyClasses or:[anyMethods]) ifFalse:[
-	    self information:(resources string:'no classes or methods in this project (yet)')
-	]
+        methods := myProject individualMethods.
+        methods notEmpty ifTrue:[
+            anyMethods := true.
+            SystemBrowser browseMethods:methods
+                                  title:(resources string:'individual methods in package %1' with:packageName).
+        ].
+        anyClasses ifTrue:[
+            SystemBrowser browseClasses:classes
+                                  title:(resources string:'classes in package %1' with:packageName).
+        ].
+        (anyClasses or:[anyMethods]) ifFalse:[
+            self information:(resources string:'no classes or methods in this project (yet)')
+        ]
     ]
 
     "Created: 10.12.1995 / 00:08:58 / cg"
@@ -768,5 +768,5 @@
 !ProjectView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ProjectView.st,v 1.48 2000-01-11 19:03:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ProjectView.st,v 1.49 2000-02-02 18:10:12 tm Exp $'
 ! !