The Trunk: Tools-topa.540.mcz

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