diff -r c4334704dc58 -r 7b14d02e8ed1 MethodSelectionBrowser.st
--- a/MethodSelectionBrowser.st	Mon Feb 13 09:54:36 2006 +0100
+++ b/MethodSelectionBrowser.st	Mon Feb 13 09:54:43 2006 +0100
@@ -12,6 +12,8 @@
 
 
 
+"{ Package: 'stx:libtool2' }"
+
 ResourceSelectionBrowser subclass:#MethodSelectionBrowser
 	instanceVariableNames:''
 	classVariableNames:''
@@ -67,23 +69,21 @@
         and aSelector,
         with allowed protocolTypes"
 
+    ^ self new
+        title: aTitle;
+        openOnSuperclass: aSuperclass
+        andClass: aClass
+        andSelector: aSelector
+        withTypes: protocolTypes
+
     "
-    MethodSelectionBrowser
+     MethodSelectionBrowser
         request: 'Select a Method'
         onSuperclass: #ApplicationModel 
         andClass: #MenuEditor 
         andSelector: #menuItemImage
         withTypes: #(class)      
     "
-
-    ^self new
-        title: aTitle;
-        openOnSuperclass: aSuperclass
-        andClass: aClass
-        andSelector: aSelector
-        withTypes: protocolTypes
-
-
 ! !
 
 !MethodSelectionBrowser class methodsFor:'list specs'!
@@ -170,29 +170,27 @@
 
 openOnSuperclass: aSuperclassOrSymbol andClass: aClassOrSymbol andSelector: aSelector withTypes: protocolTypes
     "opens a MethodSelectionBrowser on 
-	aSuperclassOrSymbol, 
-	and aClassOrSymbol, 
-	and aSelector,
-	with allowed protocolTypes"
+        aSuperclassOrSymbol, 
+        and aClassOrSymbol, 
+        and aSelector,
+        with allowed protocolTypes"
 
     |message type row|
 
-    message := super openOnSuperclass: aSuperclassOrSymbol 
-	andClass: aClassOrSymbol 
-	andSelector: aSelector 
-	withResourceTypes: protocolTypes.
+    message := self 
+        openOnSuperclass: aSuperclassOrSymbol 
+        andClass: aClassOrSymbol 
+        andSelector: aSelector 
+        withResourceTypes: protocolTypes.
 
     (message notNil and:
     [((row := self selectionOfResourceMethod value) notNil and:
     [(type := row protocol) = 'class'])])
     ifTrue:
     [   
-	message := message replChar:$  withString: ' class '
+        message := message replChar:$  withString: ' class '
     ].
     ^message
-
-
-
 ! !
 
 !MethodSelectionBrowser methodsFor:'startup / release'!