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

commits at source.squeak.org commits at source.squeak.org
Wed Aug 14 08:54:52 UTC 2019


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

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

Name: Tools-mt.874
Author: mt
Time: 14 August 2019, 10:54:51.336356 am
UUID: 01f74efe-60e9-bb4d-8e37-f2df94127b76
Ancestors: Tools-mt.873

Fixes hick-up in previous commit. Maybe we should generalize that #parse:toClassAndSelector: used in MessageSets?

=============== Diff against Tools-mt.873 ===============

Item was changed:
  ----- Method: Browser>>messageHelpAt: (in category 'message list') -----
  messageHelpAt: anIndex
  	"Show the first n lines of the sources code of the selected message."
  	
+ 	| iconHelp selector method |
- 	| iconHelp method |
  	Preferences balloonHelpInMessageLists ifFalse: [^ nil].
  	self messageList size < anIndex ifTrue: [^ nil].
  	
+ 	"Items in the message list can be formatted texts."
+ 	selector := Symbol lookup: (self messageList at: anIndex) asString.
+ 	selector ifNil: [^ nil].
+ 	
+ 	method := self selectedClassOrMetaClass compiledMethodAt: selector ifAbsent: [^ nil].
- 	method := self selectedClassOrMetaClass compiledMethodAt: (self messageList at: anIndex).
  	iconHelp := (self messageIconHelpFor: method selector) ifNotEmpty: [:t | 
  		t , Character cr, Character cr].
  	
  	^ iconHelp asText
  		append: (self messageHelpForMethod: method);
  		yourself!



More information about the Squeak-dev mailing list