On 27.03.2015, at 19:25, Chris Muller <asqueaker at gmail.com> wrote:

> What's a reportable slip?

To quote CompiledMethod>>#hasReportableSlip

	"Answer whether the receiver contains anything that should be brought 
	to the attention of the author when filing out. Customize the lists here 
	to suit your preferences. If slips do not get reported in spite of your 
	best efforts here, make certain that the Preference 'checkForSlips' is set 
	to true."

Ie, references any of 	#doOnlyOnce: #halt #halt: #hottest #printDirectlyToDisplay #toRemove #personal #urgent  #haltOnce #haltOnce: #haltIf:
or Transcript AA BB CC DD EE

Best
	-Tobias
> 
> On Thu, Mar 26, 2015 at 4:34 PM,  <commits at source.squeak.org> wrote:
>> 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!