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