Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.109.mcz
==================== Summary ====================
Name: ToolBuilder-Morphic-mt.109 Author: mt Time: 1 April 2015, 9:14:10.308 am UUID: 9505fa1d-c308-cc45-89a2-8b3bab4b07ea Ancestors: ToolBuilder-Morphic-mt.108
Reverted path selection in tree to use #= instead of #==.
Fixed the code to indicate the actual selection in the tree (and scroll to it if too large).
=============== Diff against ToolBuilder-Morphic-mt.108 ===============
Item was changed: ----- Method: PluggableTreeMorph>>selectPath:in: (in category 'selection') ----- selectPath: path in: listItem + path isEmpty ifTrue: [^self selection: nil]. + - path isEmpty ifTrue: [^self setSelectedMorph: nil]. listItem withSiblingsDo: [:each | + (each complexContents item = path first) ifTrue: [ - (each complexContents item == path first) ifTrue: [ each isExpanded ifFalse: [ each toggleExpandedState. self adjustSubmorphPositions. ]. each changed. path size = 1 ifTrue: [ + ^self selection: each complexContents - ^self setSelectedMorph: each ]. + each firstChild ifNil: [^self selection: nil]. - each firstChild ifNil: [^self setSelectedMorph: nil]. ^self selectPath: path allButFirst in: each firstChild ]. ]. + ^self selection: nil + + ! - ^self setSelectedMorph: nil!
squeak-dev@lists.squeakfoundation.org