--- a/ProjectView.st	Sat Jan 25 14:56:42 1997 +0100
+++ b/ProjectView.st	Mon Jan 27 12:18:05 1997 +0100
@@ -122,13 +122,15 @@
     "/ and give it a menu
     "/
 
-    self initializeMenu
+    toggle menuHolder:self; menuMessage:#projectMenu.
 
     "Created: 25.11.1995 / 18:06:32 / cg"
-    "Modified: 10.12.1995 / 00:04:12 / cg"
+    "Modified: 27.1.1997 / 11:53:18 / cg"
 !
 
-initializeMenu
+projectMenu
+    "return a popUpMenu"
+
     |labels selectors m|
 
     labels := #(
@@ -139,6 +141,7 @@
                     '-'
                     'changes'
                     'browse'
+                    'browse redefined'
                     'fileOut classes'
                     '-'
                     'fileOut directory ...'
@@ -163,6 +166,7 @@
                     nil
                     browseChanges
                     browsePackage
+                    browseRedefined
                     fileOutClasses
                     nil
                     projectDirectory
@@ -188,10 +192,10 @@
         m disableAll:#(#projectRepository #projectPackage).
     ].
 
-    toggle middleButtonMenu:m
+    ^ m
 
-    "Created: 25.11.1995 / 18:06:32 / cg"
-    "Modified: 14.2.1997 / 13:42:22 / cg"
+    "Created: 27.1.1997 / 11:53:30 / cg"
+    "Modified: 27.1.1997 / 11:54:52 / cg"
 ! !
 
 !ProjectView methodsFor:'menu actions'!
@@ -258,6 +262,29 @@
     "Modified: 14.2.1997 / 13:37:15 / cg"
 !
 
+browseRedefined
+    "launch browsers for all redefined methods.
+     Thats methods which existed before and were redefined by package methods"
+
+    self topView withWaitCursorDo:[
+        |redefined methods|
+
+        redefined := myProject overwrittenMethods.
+        redefined notNil ifTrue:[
+            methods := redefined values.
+        ].
+        methods size > 0 ifTrue:[
+            SystemBrowser browseMethods:methods
+                                  title:(resources string:'redefined methods in package %1' with:myProject packageName).
+        ] ifFalse:[
+            self information:(resources string:'no redefined methods in this project (yet)')
+        ]
+    ]
+
+    "Created: 27.1.1997 / 11:57:03 / cg"
+    "Modified: 27.1.1997 / 11:58:06 / cg"
+!
+
 buildProject
     "build the project; this is not yet finished ...
      ... and will eventually create all sources, makefile and
@@ -725,5 +752,5 @@
 !ProjectView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ProjectView.st,v 1.36 1997-01-16 10:08:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ProjectView.st,v 1.37 1997-01-27 11:18:05 cg Exp $'
 ! !