The Trunk: Tools-mt.874.mcz

Previous Topic Next Topic
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view

The Trunk: Tools-mt.874.mcz

Marcel Taeumel uploaded a new version of Tools to project The Trunk:

==================== 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);