Eliot Miranda uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-eem.959.mcz
==================== Summary ====================
Name: Tools-eem.959 Author: eem Time: 15 April 2020, 4:12:17.416699 pm UUID: 60d7efe0-296a-4127-9b50-6e8d701cf715 Ancestors: Tools-mt.958
Change a method to use selectorsDo:; messagesDo: should be deprecated at some point.
=============== Diff against Tools-mt.958 ===============
Item was changed: ----- Method: Behavior>>toolIconSelector: (in category '*Tools-icons') ----- toolIconSelector: aSymbol "Tools can annotate the method identified by aSymbol with an icon identified by the symbol this method returns. We customize this for, eg, overriden methods or methods with breaks. Defaults to no icon"
self methodDictionary at: aSymbol ifPresent: [ :method | method hasBreakpoint ifTrue: [^ #breakpoint]. + method selectorsDo: [:messageSelector | - method messagesDo: [:messageSelector | (#(halt halt: haltIfNil haltIf: haltOnce haltOnce: haltOnCount: halt:onCount: break) includes: messageSelector) ifTrue: [^ #breakpoint]. (#(flag: needsWork notYetImplemented) includes: messageSelector) ifTrue: [^ #flag]. (#(shouldBeImplemented subclassResponsibility) includes: messageSelector) ifTrue: [ (self isSelectorOverridden: aSymbol) ifTrue: [^ #abstract] ifFalse: [^ #notOverridden]]. messageSelector == #shouldNotImplement ifTrue: [^ #no]]. method hasReportableSlip ifTrue: [^ #breakpoint]]. (self isSelectorOverride: aSymbol) ifTrue: [ (self isSelectorOverridden: aSymbol) ifTrue: [ ^ #arrowUpAndDown ] ifFalse: [ ^ #arrowUp ] ] ifFalse: [ (self isSelectorOverridden: aSymbol) ifTrue: [^ #arrowDown ]].
self methodDictionary at: aSymbol ifPresent: [ :method | (method primitive ~= 0 and: [method isQuick not]) ifTrue: [^ #primitive]].
^ #blank!
packages@lists.squeakfoundation.org