The Trunk: Morphic-cmm.417.mcz

Chris Muller uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-cmm.417.mcz

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

Name: Morphic-cmm.417
Author: cmm
Time: 7 April 2010, 9:02:56.996 pm
UUID: 5c9474b1-a42e-457e-b17f-7f51382856f0
Ancestors: Morphic-laza.416

Fixed selection-color for multi-select lists.

=============== Diff against Morphic-laza.416 ===============

Item was changed:
  ----- Method: LazyListMorph>>drawBackgroundForMulti:on: (in category 'drawing') -----
+ drawBackgroundForMulti: row on: aCanvas
- drawBackgroundForMulti: row on: aCanvas
- | selectionDrawBounds thisColor |
  "shade the background paler, if this row is selected, but not the current selected row"
+ | selectionDrawBounds thisColor |
  thisColor := selectedRow = row
+ ifTrue: [ self class listSelectionColor ]
+ ifFalse: [ self class listSelectionColor muchLighter ].
- ifTrue: [Preferences menuSelectionColor]
- ifFalse: [Preferences menuSelectionColor muchLighter].
  selectionDrawBounds := self drawBoundsForRow: row.
  selectionDrawBounds := selectionDrawBounds intersect: self bounds.
+ aCanvas
+ fillRectangle: selectionDrawBounds
+ color: thisColor!
- aCanvas fillRectangle: selectionDrawBounds color: thisColor!