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!