The Inbox: Morphic-kfr.721.mcz

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

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

Name: Morphic-kfr.721
Author: kfr
Time: 30 June 2014, 2:00:53.343 pm
UUID: d711ff01-8351-494b-9dfc-1368733d779d
Ancestors: Morphic-cmm.720

Make hilight color in list panes more consistent

=============== Diff against Morphic-cmm.720 ===============

Item was changed:
  ----- Method: LazyListMorph>>drawBackgroundForMulti:on: (in category 'drawing') -----
  drawBackgroundForMulti: row on: aCanvas
  "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: [ self class listSelectionColor twiceDarker ]
- ifFalse: [ self class listSelectionColor ].
  selectionDrawBounds := self drawBoundsForRow: row.
  selectionDrawBounds := selectionDrawBounds intersect: self bounds.
  aCanvas
  fillRectangle: selectionDrawBounds
  color: thisColor!

Item was changed:
  ----- Method: ListItemWrapper>>highlightingColor (in category 'accessing') -----
  highlightingColor
+ ^LazyListMorph listSelectionTextColor
+ !
-
- ^Preferences menuSelectionColor makeForegroundColor!

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

Item was changed:
  ----- Method: SystemWindow class>>updatePreferences (in category 'initializing') -----
  updatePreferences
  "Temporary method to update system-wide preferences"
  Preferences setPreference: #defaultWindowColor toValue: (Color veryVeryLightGray muchLighter).
  (Preferences preferenceAt: #defaultWindowColor) defaultValue: (Color veryVeryLightGray muchLighter).
 
  Preferences setPreference: #menuAppearance3d toValue: true.
  (Preferences preferenceAt: #menuAppearance3d) defaultValue: true.
 
  Preferences setPreference: #menuColorFromWorld toValue: false.
  (Preferences preferenceAt: #menuColorFromWorld) defaultValue: false.
 
  Preferences setPreference: #roundedMenuCorners toValue: false.
  (Preferences preferenceAt: #roundedMenuCorners) defaultValue: false.
 
  Preferences setParameter: #menuColor to: (Color gray: 0.9).
  Preferences setParameter: #menuTitleColor to: (Color transparent).
  Preferences setParameter: #menuTitleBorderWidth to: 0.
  Preferences setParameter: #defaultWorldColor to: (Color gray: 0.25).
 
  Preferences setPreference: #showSplitterHandles toValue: false.
  (Preferences preferenceAt: #showSplitterHandles) defaultValue: true.
 
  Preferences setPreference: #showSharedFlaps toValue: false.
  (Preferences preferenceAt: #showSharedFlaps) defaultValue: false.
 
  Preferences installBrightWindowColors.
 
  CornerGripMorph drawCornerResizeHandles: false.
  FillInTheBlankMorph roundedDialogCorners: true.
 
  LazyListMorph
  listSelectionColor: LazyListMorph listSelectionColor;
+ listSelectionTextColor: LazyListMorph listSelectionTextColor.
- listSelectionTextColor: Color black.
  PluggableButtonMorph roundedButtonCorners: true.
  SystemWindow
  clickOnLabelToEdit: false;
  doubleClickOnLabelToExpand: true;
  moveMenuButtonRight: true;
  hideExpandButton: false.
  !