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

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
 
  !