# HG changeset patch
# User tz
# Date 888179862 -3600
# Node ID be9ead6a517b629f6117fac43064a2a1e63c0d4a
# Parent  6ed67e67d321b413c8f3fa963b5722d3850b5645
row label changed

diff -r 6ed67e67d321 -r be9ead6a517b MethodSelectionBrowser.st
--- a/MethodSelectionBrowser.st	Sun Feb 22 21:37:09 1998 +0100
+++ b/MethodSelectionBrowser.st	Sun Feb 22 21:37:42 1998 +0100
@@ -20,7 +20,7 @@
 !
 
 Object subclass:#Row
-	instanceVariableNames:'selector type'
+	instanceVariableNames:'selector protocol'
 	classVariableNames:''
 	poolDictionaries:''
 	privateIn:MethodSelectionBrowser
@@ -90,9 +90,9 @@
       #canSelect: false
   )
    (#DataSetColumnSpec
-      #label: ' Type'
+      #label: ' Protocol'
       #'labelAlignment:' #left
-      #model: #type
+      #model: #protocol
       #canSelect: false
   ))
 
@@ -118,13 +118,13 @@
             (((Smalltalk at: clsName) 
                 selectors
                 asOrderedCollection)
-             collect: [:sel| Row new selector: sel; type: 'instance'])].
+             collect: [:sel| Row new selector: sel; protocol: 'instance'])].
         (resourceTypes includes: #class) ifTrue: [
         self listOfResources addAll:
             (((Smalltalk at: clsName) 
                 class selectors
                 asOrderedCollection)
-             collect: [:sel| Row new selector: sel; type: 'class'])].
+             collect: [:sel| Row new selector: sel; protocol: 'class'])].
     ]
 
 
@@ -165,6 +165,20 @@
 
 !MethodSelectionBrowser::Row methodsFor:'accessing'!
 
+protocol
+
+    ^protocol
+
+
+!
+
+protocol: aString
+
+    protocol := aString
+
+
+!
+
 selector
 
     selector isNil ifTrue: [selector := method who methodSelector].
@@ -176,20 +190,6 @@
 
     selector := aSymbol
 
-!
-
-type
-
-    ^type
-
-
-!
-
-type: aString
-
-    type := aString
-
-
 ! !
 
 !MethodSelectionBrowser class methodsFor:'documentation'!