--- a/NewLauncher.st	Tue Nov 06 17:24:07 2001 +0100
+++ b/NewLauncher.st	Tue Nov 06 17:48:13 2001 +0100
@@ -1074,6 +1074,14 @@
            #(#Menu
               #(
                #(#MenuItem
+                  #label: 'Method Finder'
+                  #translateLabel: true
+                  #value: #openMethodFinder
+                )
+               #(#MenuItem
+                  #label: '-'
+                )
+               #(#MenuItem
                   #label: 'References To Undeclared'
                   #translateLabel: true
                   #value: #browseUndeclared
@@ -3767,6 +3775,14 @@
     Project notNil ifTrue:[Project removeDependent:self]
 ! !
 
+!NewLauncher methodsFor:'user actions - classes'!
+
+openMethodFinder
+    "open the methodFinder (poerted from squeak)"
+
+   MethodFinderWindow open
+! !
+
 !NewLauncher methodsFor:'user actions - demos'!
 
 openDemo:className
@@ -4031,5 +4047,5 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.233 2001-11-05 18:11:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.234 2001-11-06 16:48:13 james Exp $'
 ! !