The Trunk: Tools-mt.543.mcz

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