Patrick Rein uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-pre.216.mcz
==================== Summary ====================
Name: ToolBuilder-Morphic-pre.216 Author: pre Time: 24 April 2018, 2:12:43.175899 pm UUID: 52c98680-626a-c446-9bca-07fc30d10393 Ancestors: ToolBuilder-Morphic-pre.215
Minor improvement to set selected path based on a hint from mt: Only calculate the selected path when the model is actually interested in it.
=============== Diff against ToolBuilder-Morphic-pre.215 ===============
Item was changed: ----- Method: PluggableTreeMorph>>setSelectedPath: (in category 'selection') ----- setSelectedPath: aMorph
| items wrapperPath | + setSelectedPathSelector ifNotNil: [:setSelectedPathSelector | + wrapperPath := selectedWrapper + ifNil: [#()] + ifNotNil: [ + wrapperPath := {selectedWrapper} asOrderedCollection. + [wrapperPath last parent notNil] + whileTrue: [wrapperPath addLast: wrapperPath last parent]. + wrapperPath]. + items := wrapperPath collect: [:w | w item]. - wrapperPath := selectedWrapper - ifNil: [#()] - ifNotNil: [ - wrapperPath := {selectedWrapper} asOrderedCollection. - [wrapperPath last parent notNil] - whileTrue: [wrapperPath addLast: wrapperPath last parent]. - wrapperPath]. - items := wrapperPath collect: [:w | w item]. - setSelectedPathSelector ifNotNil: [:symbol | model + perform: setSelectedPathSelector - perform: symbol with: items]. !
packages@lists.squeakfoundation.org