--- 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'!