MethodSelectionBrowser.st
changeset 773 de5c99bd3078
parent 771 905c3b4ba565
child 789 ee325d04f292
equal deleted inserted replaced
772:6cf444ab3cf5 773:de5c99bd3078
   105       #canSelect: false
   105       #canSelect: false
   106   ))
   106   ))
   107 
   107 
   108 
   108 
   109 
   109 
       
   110 
       
   111 ! !
       
   112 
       
   113 !MethodSelectionBrowser methodsFor:'aspects'!
       
   114 
       
   115 helpEnabled
       
   116     "returns whether there is a documentation file"
       
   117 
       
   118     ^false
   110 
   119 
   111 ! !
   120 ! !
   112 
   121 
   113 !MethodSelectionBrowser methodsFor:'callbacks - user'!
   122 !MethodSelectionBrowser methodsFor:'callbacks - user'!
   114 
   123 
   185 ! !
   194 ! !
   186 
   195 
   187 !MethodSelectionBrowser::Method methodsFor:'accessing'!
   196 !MethodSelectionBrowser::Method methodsFor:'accessing'!
   188 
   197 
   189 protocol
   198 protocol
       
   199     "returns the protocol of the method (#instance or #class)"
   190 
   200 
   191     ^protocol
   201     ^protocol
   192 
   202 
   193 
   203 
   194 !
   204 !
   195 
   205 
   196 protocol: aString
   206 protocol: aSymbol
   197 
   207     "sets the protocol of the method (#instance or #class)"
   198     protocol := aString
   208 
       
   209     protocol := aSymbol
   199 
   210 
   200 
   211 
   201 !
   212 !
   202 
   213 
   203 selector
   214 selector
       
   215     "returns the selector of the method"
   204 
   216 
   205     ^selector
   217     ^selector
   206 
   218 
   207 !
   219 !
   208 
   220 
   209 selector: aSymbol
   221 selector: aSymbol
       
   222     "sets the selector of the method"
   210 
   223 
   211     selector := aSymbol
   224     selector := aSymbol
   212 
   225 
   213 ! !
   226 ! !
   214 
   227