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