--- a/ProjectView.st	Fri May 19 06:07:34 1995 +0200
+++ b/ProjectView.st	Tue Jun 06 06:21:18 1995 +0200
@@ -37,7 +37,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/ProjectView.st,v 1.13 1995-05-03 01:13:01 claus Exp $
+$Header: /cvs/stx/stx/libtool/ProjectView.st,v 1.14 1995-06-06 04:21:03 claus Exp $
 "
 ! !
 
@@ -66,7 +66,7 @@
     "launch browsers for all classes/methods which are defined in this package"
 
     self topView withWaitCursorDo:[
-	|classes packageName|
+	|classes packageName methods methodList|
 
 	packageName := myProject packageName.
 	classes := myProject classes.
@@ -79,11 +79,21 @@
 	] ifFalse:[
 	    classes := #()
 	].
-	SystemBrowser browseMethodsWhere:[:cls :mthd :sel |
-				    mthd package = packageName
-				    and:[(classes includes:cls) not]
-				  ] 
-			    title:'additional methods in package ' , packageName
+"/        SystemBrowser browseMethodsWhere:[:cls :mthd :sel |
+"/                                    mthd package = packageName
+"/                                    and:[(classes includes:cls) not]
+"/                                  ] 
+"/                            title:'individual methods in package ' , packageName.
+
+	methods := myProject individualMethods.
+	methodList := methods collect:[:m | 
+					|who|
+
+					who := m who.
+					(who at:1) name , ' ' , (who at:2)
+				      ].
+	SystemBrowser browseMethods:methodList
+			      title:'individual methods in package ' , packageName.
     ]
 !