The Trunk: Tools-mt.692.mcz

Marcel Taeumel uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-mt.692.mcz

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

Name: Tools-mt.692
Author: mt
Time: 17 April 2016, 8:00:54.358544 pm
UUID: 52c8594c-d718-6e46-be0f-863fdd0240bd
Ancestors: Tools-mt.691

Message Set Tools (Senders/Implementors): Adds class/system category to the label to improve navigation and filter.

=============== Diff against Tools-mt.691 ===============

Item was changed:
  ----- Method: MessageSet>>initializeMessageList: (in category 'private') -----
  initializeMessageList: anArray
  "Initialize my messageList from the given list of MethodReference or string objects.  NB: special handling for uniclasses."
 
 
  messageList := OrderedCollection new.
  anArray do: [ :each |
  MessageSet
  parse: each  
  toClassAndSelector: [ :class :sel | | s |
  class ifNotNil:
  [class isUniClass
  ifTrue:
  [s := class typicalInstanceName, ' ', sel]
  ifFalse:
  [s := class name , ' ' , sel , ' {' ,
+ ((class organization categoryOfElement: sel) ifNil: ['']) , '}' ,
+ ' {', class category, '}'].
- ((class organization categoryOfElement: sel) ifNil: ['']) , '}'].
  messageList add: (
  MethodReference new
  setClass: class  
  methodSymbol: sel
  stringVersion: s)]]].
  messageListIndex := messageList isEmpty ifTrue: [0] ifFalse: [1].
  contents := ''!