--- a/MethodSelectionBrowser.st Wed Feb 18 22:24:45 1998 +0100
+++ b/MethodSelectionBrowser.st Wed Feb 18 22:30:32 1998 +0100
@@ -59,12 +59,13 @@
request: aTitle onSuperclass: aSuperclass andClass: aClass andSelector: aSelector withTypes: aResourceTypes
- "self
- request: 'Select A Method'
+ "
+ MethodSelectionBrowser
+ request: 'Select a Method'
onSuperclass: #ApplicationModel
andClass: #ToolApplicationModel
andSelector: #saveIcon
- withTypes: #(class)
+ withTypes: #(class)
"
^self new
@@ -83,12 +84,14 @@
^ #(
#(#DataSetColumnSpec
- #label: 'Selector'
+ #label: ' Selector'
+ #'labelAlignment:' #left
#model: #selector
#canSelect: false
)
(#DataSetColumnSpec
- #label: 'Type'
+ #label: ' Type'
+ #'labelAlignment:' #left
#model: #type
#canSelect: false
))
@@ -131,7 +134,20 @@
openOnSuperclass: aSuperclassOrSymbol andClass: aClassOrSymbol andSelector: aSelector withTypes: aResourceTypes
- ^super openOnSuperclass: aSuperclassOrSymbol andClass: aClassOrSymbol andSelector: aSelector withResourceTypes: aResourceTypes
+ |message type row|
+ message := super openOnSuperclass: aSuperclassOrSymbol
+ andClass: aClassOrSymbol
+ andSelector: aSelector
+ withResourceTypes: aResourceTypes.
+
+ (message notNil and:
+ [((row := self selectionOfResource value) notNil and:
+ [(type := row type) = 'class'])])
+ ifTrue:
+ [
+ message := message replChar:$ withString: ' class '
+ ].
+ ^message