I'm sorry Marcel, but I developed the behaviors of
TracingMessagesBrowser with great deliberation and care.  If you wish
to make alteratiuons, would you please collaborate with me?  As it
stands, this change to my code from Y2002 is very unwelcome and I've
rolled it back.  Let's talk.

traceMessages is not something the user is going to be flipping on and
off, so there is no need for a _constant_ indication reminder of which
"mode' they're in.  I don't know what you're trying to fix, but I
cannot stand this new clutter.  Sorry.

Maybe a different color window is what you want?  Even that seems
unnecessary, as the system simply responds appropriately to all
requests for senders and implementors by doing what the user wants for
each scenario.  the user doesn't need to "read", in advance, what the
system will do, just not surprise them.  Nothing about traceMessages
does.

On Sun, Apr 17, 2016 at 5:00 AM,  <commits at source.squeak.org> wrote:
> Marcel Taeumel uploaded a new version of Tools to project The Trunk:
> http://source.squeak.org/trunk/Tools-mt.690.mcz
>
> ==================== Summary ====================
>
> Name: Tools-mt.690
> Author: mt
> Time: 17 April 2016, 12:00:40.266542 pm
> UUID: d4a2a77e-d3cf-7c49-8685-096e8f7ff578
> Ancestors: Tools-cmm.689
>
> Make the message trace tools more obvious to avoid applying a wrong user model. Regular message set and traced message set behave differently considering mouse clicks, keyboard shortcuts, etc.
> There is a preference traceMessage to switch between traditional senders/implementors and the traced versions.
>
> =============== Diff against Tools-cmm.689 ===============
>
> Item was changed:
>   ----- Method: MessageTrace>>windowLabelAt: (in category 'private accessing') -----
>   windowLabelAt: anInteger
>
>         | str |
>         ^(str := autoSelectStrings at: anInteger)
>                 ifNil:
> +                       [ 'Traced Implementors of ',
> -                       [ 'Implementors of ',
>                                 (self class
>                                         parse: self selection
>                                         toClassAndSelector: [ :class :selector | selector ]) ]
>                 ifNotNil:
> +                       [ 'Traced Senders of ', str ]
> -                       [ 'Senders of ', str ]
>   !
>
> Item was changed:
>   ----- Method: StandardToolSet class>>browseMessageSet:name:autoSelect: (in category 'browsing') -----
>   browseMessageSet: messageList name: title autoSelect: autoSelectString
>         "Open a message set or message-trace browser, depending on the #traceMessages setting."
>         ^ Preferences traceMessages
>                 ifTrue:
>                         [ MessageTrace
>                                 openMessageList: messageList
> +                               name: 'Traced ', title
> -                               name: title
>                                 autoSelect: autoSelectString ]
>                 ifFalse:
>                         [ MessageSet
>                                 openMessageList: messageList
>                                 name: title
>                                 autoSelect: autoSelectString ]!
>
>