The Trunk: Tools-mt.876.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.876.mcz

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

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

Name: Tools-mt.876
Author: mt
Time: 14 August 2019, 3:08:37.674512 pm
UUID: fb8f517a-922f-eb41-a1de-f1e75de865c1
Ancestors: Tools-mt.875

Well ... same comment as before. We need a single way to get the current method in code browsers.

=============== Diff against Tools-mt.875 ===============

Item was changed:
  ----- Method: Browser>>dragFromMessageList: (in category 'drag and drop') -----
  dragFromMessageList: index
  "Drag a method from the browser"
+ | selector |
  self flag: #refactor. "mt: Maybe use an approach similar to MessageSet class >> #parse:toClassAndSelector instead of #asString? There could be any fancy representation of a message in the message list."
+ selector := Symbol lookup: (self messageList at: index) asString.
+ selector ifNil: [^ self].
+ ^self selectedClassOrMetaClass compiledMethodAt: selector ifAbsent:[nil]!
- ^self selectedClassOrMetaClass compiledMethodAt: (self messageList at: index) asString ifAbsent:[nil]!