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