The Trunk: Tools-kks.845.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-kks.845.mcz

commits-2
Eliot Miranda uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-kks.845.mcz

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

Name: Tools-kks.845
Author: kks
Time: 11 March 2019, 4:28:38.697611 pm
UUID: f95a6695-03f2-4dfc-a80b-e8bc6df8b6ce
Ancestors: Tools-pre.844

Simplify addItem in Model: to open a method browser directly on the specified class and method. This should make creating hotlinks for method references in workspaces and help text.

=============== Diff against Tools-pre.844 ===============

Item was changed:
  ----- Method: Model>>addItem: (in category '*Tools') -----
  addItem: classAndMethod
+ "Open a browser directly on the given class and method
- "Make a linked message list and put this method in it"
 
+ Model new addItem: 'Model addItem:'
+ Model new addItem: 'Model>>addItem:'
+ "
+
-
  self flag: #mref. "classAndMethod is a String"
-
  MessageSet
  parse: classAndMethod  
+ toClassAndSelector: [ :class :sel |
- toClassAndSelector: [ :class :sel | | list |
  class ifNil: [^self].
+ Browser newOnClass: class selector: sel
- list := OrderedCollection with: (
- MethodReference new
- setClass: class  
- methodSymbol: sel
- stringVersion: classAndMethod
- ).
- ToolSet
- browseMessageSet: list
- name: 'Linked by HyperText'
- autoSelect: nil
  ]
 
  !