class: MethodReference
authorClaus Gittinger <cg@exept.de>
Sun, 21 Dec 2014 14:08:18 +0100
changeset 944 7551910bc2e8
parent 943 020cfc28a757
child 945 4d3454d3ba4d
class: MethodReference changed: #isLocalSelector (send #implements: instead of #includesLocalSelector:)
MethodReference.st
--- a/MethodReference.st	Sun Dec 21 14:07:31 2014 +0100
+++ b/MethodReference.st	Sun Dec 21 14:08:18 2014 +0100
@@ -108,8 +108,9 @@
 !
 
 isLocalSelector
-	^self actualClass
-		includesLocalSelector: self methodSymbol
+        ^self actualClass
+                "/ includesLocalSelector: self methodSymbol
+                implements: self methodSymbol
 !
 
 source
@@ -254,13 +255,14 @@
 !MethodReference class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MethodReference.st,v 1.1 2011-08-20 13:17:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MethodReference.st,v 1.2 2014-12-21 13:08:18 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MethodReference.st,v 1.1 2011-08-20 13:17:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MethodReference.st,v 1.2 2014-12-21 13:08:18 cg Exp $'
 !
 
 version_SVN
-    ^ '§Id: MethodReference.st 8 2010-09-12 17:15:52Z vranyj1 §'
+    ^ '$Id: MethodReference.st,v 1.2 2014-12-21 13:08:18 cg Exp $'
 ! !
+