[Pkg] The Trunk: Tools-ul.551.mcz

[commits at source.squeak.org]

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!