The Trunk: ToolBuilder-Morphic-pre.216.mcz

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].
 
  !