--- 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.