The Trunk: Morphic-mt.1070.mcz

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

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

Name: Morphic-mt.1070
Author: mt
Time: 1 February 2016, 10:22:48.528285 am
UUID: 820409c5-06df-43bb-aae0-ee27057ead43
Ancestors: Morphic-tpr.1069

Fixes bounds issue regarding refreshed items in object explorer and other tree applications. Thanks to Karl Ramberg for the idea.

=============== Diff against Morphic-tpr.1069 ===============

Item was changed:
  ----- Method: IndentingListItemMorph>>refresh (in category 'initialization') -----
  refresh
 
  self contents: self getLabel.
  icon := self getIcon.
+ self width: container preferredSubmorphWidth.
 
  (self valueOfProperty: #wasRefreshed ifAbsent: [false]) ifFalse: [
  self setProperty: #wasRefreshed toValue: true.
  self color: Color yellow. "Indicate refresh operation."].!

Item was changed:
  ----- Method: SimpleHierarchicalListMorph>>adjustSubmorphPositions (in category 'private') -----
  adjustSubmorphPositions
 
  | p |
  p := 0@0.
  scroller submorphsDo: [ :each | | h |
  each visible ifTrue: [
  h := each height.
+ each privateBounds: (p extent: self preferredSubmorphWidth@h).
- each privateBounds: (p extent: 9999@h).
  p := p + (0@h) ]].
  self
  changed;
  layoutChanged;
  setScrollDeltas.
  !

Item was added:
+ ----- Method: SimpleHierarchicalListMorph>>preferredSubmorphWidth (in category 'private') -----
+ preferredSubmorphWidth
+
+ ^ 9999!