--- a/SmallSense__CompletionEngine.st Fri Apr 11 18:13:54 2014 +0200
+++ b/SmallSense__CompletionEngine.st Fri May 09 14:54:07 2014 +0100
@@ -124,17 +124,17 @@
Smalltalk allClassesDo:[:class|
class selectorsAndMethodsDo:[:selector :mthd |
(mthd isSynthetic not and:[(filter value: mthd) and:[ matcher value: matchPrefix value: selector]]) ifTrue:[
- | class skip |
+ | class overridden |
class := mthd mclass superclass.
- skip := false.
- [ skip not and:[class notNil] ] whileTrue:[
+ overridden := false.
+ [ overridden not and:[class notNil] ] whileTrue:[
(class methodDictionary includesKey: selector) ifTrue:[
- skip := true.
+ overridden := true.
].
class := class superclass.
].
- skip ifFalse:[
+ overridden ifFalse:[
| classes |
classes := selectors at: selector ifAbsentPut:[ Set new ].