The Trunk: ToolBuilder-Morphic-mt.177.mcz

Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.177.mcz

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

Name: ToolBuilder-Morphic-mt.177
Author: mt
Time: 2 August 2016, 2:13:33.624941 pm
UUID: b6ea5aa5-8401-d647-8d21-be0397a0088e
Ancestors: ToolBuilder-Morphic-mt.176

Fixes a bug where the parent of the current selection in a tree was not updated in the model when the model updated its current selection.

=============== Diff against ToolBuilder-Morphic-mt.176 ===============

Item was added:
+ ----- Method: PluggableTreeMorph>>selectedMorph: (in category 'selection') -----
+ selectedMorph: aMorph
+
+ super selectedMorph: aMorph.
+
+ "If the update came from the model, make my state consistent again."
+ selectedWrapper := aMorph complexContents.
+ self setSelectedParentMorph: aMorph.!

Item was changed:
  ----- Method: PluggableTreeMorph>>setSelectedMorph: (in category 'selection') -----
  setSelectedMorph: aMorph
 
  selectedWrapper := aMorph complexContents.
 
  "Let the model now about the selected object, not wrapper."
  setSelectionSelector ifNotNil: [:symbol |
  model
  perform: symbol
  with: (selectedWrapper ifNotNil: [:w | w item])].
+
+ self setSelectedParentMorph: aMorph.!
-
- "The model may not have access to the parent object in terms of this tree structure."
- setSelectedParentSelector ifNotNil: [:symbol |
- model
- perform: symbol
- with: (selectedWrapper ifNotNil: [:w | w parent ifNotNil: [:pw | pw item]])].!

Item was added:
+ ----- Method: PluggableTreeMorph>>setSelectedParentMorph: (in category 'selection') -----
+ setSelectedParentMorph: aMorph
+
+ "The model may not have access to the parent object in terms of this tree structure."
+ setSelectedParentSelector ifNotNil: [:symbol |
+ model
+ perform: symbol
+ with: (selectedWrapper ifNotNil: [:w | w parent ifNotNil: [:pw | pw item]])].!