[squeak-dev] The Trunk: Tools-mt.692.mcz

commits at source.squeak.org commits at source.squeak.org
Sun Apr 17 18:01:13 UTC 2016


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 := ''!



More information about the Squeak-dev mailing list