diff -r 393a5860fc7d -r 6862c9c822a3 MethodSelectionBrowser.st
--- a/MethodSelectionBrowser.st	Wed Jul 22 16:57:10 1998 +0200
+++ b/MethodSelectionBrowser.st	Wed Jul 22 16:57:55 1998 +0200
@@ -62,26 +62,26 @@
 
 request: aTitle onSuperclass: aSuperclass andClass: aClass andSelector: aSelector withTypes: protocolTypes
     "opens a MethodSelectionBrowser on 
-	aSuperclassOrSymbol, 
-	and aClassOrSymbol, 
-	and aSelector,
-	with allowed protocolTypes"
+        aSuperclassOrSymbol, 
+        and aClassOrSymbol, 
+        and aSelector,
+        with allowed protocolTypes"
 
     "
     MethodSelectionBrowser
-	request: 'Select a Method'
-	onSuperclass: #ApplicationModel 
-	andClass: #ToolApplicationModel 
-	andSelector: #saveIcon 
-	withTypes: #(class)      
+        request: 'Select a Method'
+        onSuperclass: #ApplicationModel 
+        andClass: #MenuEditor 
+        andSelector: #menuItemImage
+        withTypes: #(class)      
     "
 
     ^self new
-	title: aTitle;
-	openOnSuperclass: aSuperclass
-	andClass: aClass
-	andSelector: aSelector
-	withTypes: protocolTypes
+        title: aTitle;
+        openOnSuperclass: aSuperclass
+        andClass: aClass
+        andSelector: aSelector
+        withTypes: protocolTypes
 
 
 ! !
@@ -132,12 +132,17 @@
 classSelected
     "after a class selection, read the class or/and instance methods of the selected class"
 
-    self selectionOfClass value isNil ifTrue: [^nil].
+    ClassPresentation = #'Class Hierarchy'
+        ifTrue:  [self selectionOfClassHierarchy  value isNil ifTrue: [^nil]]
+        ifFalse: [self selectionOfClassCategories value isNil ifTrue: [^nil]].
+
     self withWaitCursorDo:
     [
         |clsName contentsBlock|
         resourceTypes isNil ifTrue: [resourceTypes := #(instance class)].
-        clsName := (self selectionOfClass value name upTo: $ ) asSymbol.
+        ClassPresentation = #'Class Hierarchy'
+            ifTrue:  [clsName := (self selectionOfClassHierarchy  value name upTo: $ ) asSymbol]
+            ifFalse: [clsName := (self selectionOfClassCategories value name upTo: $ ) asSymbol].
         self valueOfClassName value: clsName.
         self class lastSelection: clsName.
         self listOfResourceMethods removeAll.