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

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!