[squeak-dev] The Inbox: Morphic-MAD.205.mcz

A new version of Morphic was added to project The Inbox:
http://source.squeak.org/inbox/Morphic-MAD.205.mcz

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

Name: Morphic-MAD.205
Author: MAD
Time: 6 October 2009, 7:57:15 am
UUID: b21c7bc6-2c70-44e1-ae95-28461cdef578
Ancestors: Morphic-MAD.204

Fixing the mess I made of the formatting.

=============== Diff against Morphic-MAD.204 ===============

Item was changed:
  ----- Method: PluggableListMorph>>textHighlightColor (in category 'initialization') -----
  textHighlightColor
  "Answer my default text highlight color."
  ^self valueOfProperty: #textHighlightColor ifAbsent: [ self textColor negated ].
  !

Item was changed:
  ----- Method: LazyListMorph>>colorForRow: (in category 'drawing') -----
+ colorForRow: row
+
- colorForRow: row
  ^(selectedRow notNil and: [ row = selectedRow])
  ifTrue: [ self color negated ]
  ifFalse: [ self color ].!

Item was changed:
  ----- Method: ListItemWrapper>>highlightingColor (in category 'accessing') -----
  highlightingColor
-
  ^self preferredColor negated!

Item was changed:
  ----- Method: ListItemWrapper>>preferredColor (in category 'accessing') -----
  preferredColor
-
  ^ Color black!

Item was changed:
  ----- Method: LazyListMorph>>drawSelectionOn: (in category 'drawing') -----
  drawSelectionOn: aCanvas
+
  | selectionDrawBounds |
  selectedRow ifNil: [ ^self ].
  selectedRow = 0 ifTrue: [ ^self ].
  selectionDrawBounds := self drawBoundsForRow: selectedRow.
  selectionDrawBounds := selectionDrawBounds intersect: self bounds.
  aCanvas fillRectangle: selectionDrawBounds color: (Preferences menuSelectionColor)!

Item was changed:
  ----- Method: SimpleHierarchicalListMorph>>drawOn: (in category 'drawing') -----
+ drawOn: aCanvas
- drawOn: aCanvas
  super drawOn: aCanvas.
+ selectedMorph
+ ifNotNil: [aCanvas
+ fillRectangle: (((scroller transformFrom: self)
+ invertBoundsRect: selectedMorph bounds)
- selectedMorph ifNotNil:
- [aCanvas fillRectangle:
- (((scroller transformFrom: self) invertBoundsRect: selectedMorph bounds)
  intersect: scroller bounds)
+ color: Preferences menuSelectionColor].
+ self drawLinesOn: aCanvas!
- color: Preferences menuSelectionColor ].
- self drawLinesOn: aCanvas.
-
-
-
- !