[Pkg] The Trunk: Tools-topa.562.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.562.mcz

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

Name: Tools-topa.562
Author: topa
Time: 26 March 2015, 10:34:40.589 pm
UUID: c1e03f1f-b7f2-46a1-b27d-5c2f42e19ef1
Ancestors: Tools-topa.561

Tool icons: See if a method identifies itself as having a breakpoint or a 'reportable slip'

=============== Diff against Tools-topa.561 ===============

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 literalsDo: [:literal |
+ 			(#(halt halt: haltIfNil haltIf: haltOnce haltOnce: haltOnCount: halt:onCount: break) includes: literal)
- 		method literalsDo: [ :literal |
- 			(#(halt halt: haltIfNil haltIf: haltOnce haltOnce: haltOnCount: halt:onCount:) includes: literal)
  				ifTrue: [^ #breakpoint].
  			(#(flag: needsWork notYetImplemented) includes: literal)
  				ifTrue: [^ #flag].
  			(#(shouldBeImplemented subclassResponsibility) includes: literal)
  				ifTrue: [
  					(self isSelectorOverridden: aSymbol)
  						ifTrue: [^ #abstract]
  						ifFalse: [^ #notOverridden]].
  			literal == #shouldNotImplement
+ 				ifTrue: [^ #no]].
+ 		method hasReportableSlip ifTrue: [^ #breakpoint]].
- 				ifTrue: [^ #no]]].
  		
  	(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!