Levente Uzonyi uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-ul.551.mcz==================== Summary ====================
Name: Tools-ul.551
Author: ul
Time: 13 March 2015, 5:39:48.09 am
UUID: fe6d3208-411b-4114-b0ad-f3d148797a36
Ancestors: Tools-mt.550
- don't try to show message icons in FileContentsBrowser, because PseudoClass doesn't implement the necessary API to do that.
- use the new methods #isSelectorOverride: and #isSelectorOverridden: in CodeHolder.
=============== Diff against Tools-mt.550 ===============
Item was changed:
----- Method: CodeHolder>>isThereAnOverride (in category 'misc') -----
isThereAnOverride
+ "Answer whether any subclass of my selected class implements my selected selector"
+
- "Answer whether any subclass of my selected class implements my
- selected selector"
| aName aClass |
aName := self selectedMessageName ifNil: [^ false].
aClass := self selectedClassOrMetaClass ifNil: [^ false].
+ ^aClass isSelectorOverridden: aName!
- aClass allSubclassesDo: [ :cls | (cls includesSelector: aName) ifTrue: [ ^true ]].
- ^ false!
Item was changed:
----- Method: CodeHolder>>isThisAnOverride (in category 'misc') -----
isThisAnOverride
"Answer whether any superclass of my selected class implements my selected selector"
+
| aName aClass |
aName := self selectedMessageName ifNil: [^ false].
aClass := self selectedClassOrMetaClass ifNil: [^ false].
+ ^aClass isSelectorOverride: aName!
- aClass allSuperclassesDo: [ :cls | (cls includesSelector: aName) ifTrue: [ ^true ]].
- ^ false!
Item was added:
+ ----- Method: FileContentsBrowser class>>showMessageIcons (in category 'preferences') -----
+ showMessageIcons
+ "Remove this method once PseudoClass implements the methods of the class API required to show the icons."
+
+ ^false!
Locked
