Marcel Taeumel uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-mt.909.mcz==================== Summary ====================
Name: Kernel-mt.909
Author: mt
Time: 5 March 2015, 11:41:30.983 am
UUID: bd97ddfb-65ef-9a4d-956a-7ebb84782a01
Ancestors: Kernel-ul.908
Two utility messages added to classes to find out whether a selector is an override or will be overridden in subclasses.
=============== Diff against Kernel-ul.908 ===============
Item was added:
+ ----- Method: ClassDescription>>isSelectorOverridden: (in category 'testing') -----
+ isSelectorOverridden: aSelector
+
+ (self includesSelector: aSelector)
+ ifFalse: [^ false].
+
+ self allSubclassesDo: [ :class |
+ (class includesSelector: aSelector)
+ ifTrue: [ ^ true ] ].
+ ^ false!
Item was added:
+ ----- Method: ClassDescription>>isSelectorOverride: (in category 'testing') -----
+ isSelectorOverride: aSelector
+
+ (self includesSelector: aSelector)
+ ifFalse: [^ false].
+
+ self allSuperclassesDo: [ :class |
+ (class includesSelector: aSelector)
+ ifTrue: [ ^ true ] ].
+ ^ false!