# HG changeset patch
# User tz
# Date 887837432 -3600
# Node ID 495b35593c092fc5d561cb2aab847d79711092a8
# Parent  1896945cf5d4283062bad01aed8f4f33f3c8c831
the returning message should contain some info about the method protocol type

diff -r 1896945cf5d4 -r 495b35593c09 MethodSelectionBrowser.st
--- 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