Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.110.mcz
==================== Summary ====================
Name: ToolBuilder-Morphic-mt.110 Author: mt Time: 1 April 2015, 10:25:52.197 am UUID: d7697fb6-b947-8e4a-a6b7-e8a087d2c81f Ancestors: ToolBuilder-Morphic-mt.109
Revert "code to indicate the actual selection" because I confused the view-based API with the model-based API.
=============== Diff against ToolBuilder-Morphic-mt.109 ===============
Item was changed: ----- Method: PluggableTreeMorph>>selectPath:in: (in category 'selection') ----- selectPath: path in: listItem + path isEmpty ifTrue: [^self setSelectedMorph: nil]. - path isEmpty ifTrue: [^self selection: nil]. - listItem withSiblingsDo: [:each | (each complexContents item = path first) ifTrue: [ each isExpanded ifFalse: [ each toggleExpandedState. self adjustSubmorphPositions. ]. each changed. path size = 1 ifTrue: [ + ^self setSelectedMorph: each - ^self selection: each complexContents ]. + each firstChild ifNil: [^self setSelectedMorph: nil]. - each firstChild ifNil: [^self selection: nil]. ^self selectPath: path allButFirst in: each firstChild ]. ]. + ^self setSelectedMorph: nil - ^self selection: nil
!