[Pkg] The Trunk: Tools-topa.540.mcz

[commits at source.squeak.org]

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 ] ]!