[Pkg] The Trunk: Tools-mt.543.mcz

[commits at source.squeak.org]

Marcel Taeumel uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-mt.543.mcz

==================== Summary ====================

Name: Tools-mt.543
Author: mt
Time: 7 March 2015, 12:19:49.606 pm
UUID: 7bef3495-7dcd-0346-99d7-7c335ced4c3a
Ancestors: Tools-mt.542

Browser icons fixed.

=============== Diff against Tools-mt.542 ===============

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 |
  		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)
  		ifTrue: [
  			(classDescription isSelectorOverridden: aSelector)
+ 				ifTrue: [ #arrowUpAndDown ]
+ 				ifFalse: [ #arrowUp ] ]
- 				ifTrue: [ #arrowUp ]
- 				ifFalse: [ #arrowUpAndDown ] ]
  		ifFalse: [
  			(classDescription isSelectorOverridden: aSelector)
  				ifTrue: [ #arrowDown ]
  				ifFalse: [#blank ] ]!