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

Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.103.mcz

==================== Summary ====================

Name: ToolBuilder-Morphic-mt.103
Author: mt
Time: 29 March 2015, 2:42:29.875 pm
UUID: 256ddc14-bdbe-8d40-93f2-6fcb546f87de
Ancestors: ToolBuilder-Morphic-mt.102

Fix path selection to match against item identity instead of equality, which would fail, for example, in the case of string listings having duplicates.

=============== Diff against ToolBuilder-Morphic-mt.102 ===============

Item was changed:
  ----- Method: PluggableTreeMorph>>selectPath:in: (in category 'selection') -----
  selectPath: path in: listItem
  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 setSelectedMorph: each
  ].
  each firstChild ifNil: [^self setSelectedMorph: nil].
  ^self selectPath: path allButFirst in: each firstChild
  ].
  ].
+ ^self setSelectedMorph: nil!
- ^self setSelectedMorph: nil
-
- !