Tobias Pape uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-topa.540.mcz
==================== Summary ====================
Name: Tools-topa.540 Author: topa Time: 5 March 2015, 11:03:47.832 pm UUID: a752e434-b5ad-40d1-90c0-e7c56cf68246 Ancestors: Tools-mt.539
Fix ToolIcons to work with PseudoClasses used by File Contents Browser
=============== Diff against Tools-mt.539 ===============
Item was changed: ----- Method: ToolIcons class>>iconForClass: (in category 'support') ----- iconForClass: aClassNameSymbol
+ + (Smalltalk at: aClassNameSymbol ifAbsent: [^ #blank]) withAllSuperclassesDo: [:class | - (Smalltalk at: aClassNameSymbol) withAllSuperclassesDo: [:class | (self class includesSelector: class name asLowercase asSymbol) ifTrue: [^ class name asLowercase asSymbol]]. ^ #blank!
Item was changed: ----- Method: ToolIcons class>>iconForClass:selector: (in category 'support') ----- iconForClass: aClassDescription selector: aSelector "Answer an icon to be shown for the selector aSymbol in aClassDescription." + | classDescription | + classDescription := (aClassDescription isKindOf: PseudoClass) + ifTrue: [aClassDescription realClass ifNil: [^ #blank ]] + ifFalse: [aClassDescription]. + classDescription methodDictionary at: aSelector ifPresent: [ :method | - - aClassDescription methodDictionary at: aSelector ifPresent: [ :method | method literalsDo: [ :literal | (literal == #halt or: [ literal == #halt: or: [ literal == #haltIfNil or: [ literal == #haltIf: or: [ literal == #haltOnce or: [ literal == #haltOnce: or: [ literal == #haltOnCount: or: [ literal == #halt:onCount: ] ] ] ] ] ] ]) ifTrue: [^ #breakpoint]. (literal == #flag: or: [ literal == #needsWork or: [ literal == #notYetImplemented ] ]) ifTrue: [^ #flag].
(literal == #shouldBeImplemented or: [literal == #subclassResponsibility]) ifTrue: [^ #abstract] ] ]. + ^ (classDescription isSelectorOverride: aSelector) - ^ (aClassDescription isSelectorOverride: aSelector) ifTrue: [ + (classDescription isSelectorOverridden: aSelector) - (aClassDescription isSelectorOverridden: aSelector) ifTrue: [ #arrowUp ] ifFalse: [ #arrowUpAndDown ] ] ifFalse: [ + (classDescription isSelectorOverridden: aSelector) - (aClassDescription isSelectorOverridden: aSelector) ifTrue: [ #arrowDown ] ifFalse: [#blank ] ]!
squeak-dev@lists.squeakfoundation.org