--- a/MethodSelectionBrowser.st Thu Apr 09 21:16:17 1998 +0200
+++ b/MethodSelectionBrowser.st Fri Apr 10 19:21:21 1998 +0200
@@ -110,6 +110,15 @@
! !
+!MethodSelectionBrowser methodsFor:'aspects'!
+
+helpEnabled
+ "returns whether there is a documentation file"
+
+ ^false
+
+! !
+
!MethodSelectionBrowser methodsFor:'callbacks - user'!
classSelected
@@ -187,26 +196,30 @@
!MethodSelectionBrowser::Method methodsFor:'accessing'!
protocol
+ "returns the protocol of the method (#instance or #class)"
^protocol
!
-protocol: aString
+protocol: aSymbol
+ "sets the protocol of the method (#instance or #class)"
- protocol := aString
+ protocol := aSymbol
!
selector
+ "returns the selector of the method"
^selector
!
selector: aSymbol
+ "sets the selector of the method"
selector := aSymbol