The Inbox: PreferenceBrowser-kfr.60.mcz

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

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

Name: PreferenceBrowser-kfr.60
Author: kfr
Time: 6 January 2016, 8:14:45.215914 pm
UUID: 8f2ce27e-4786-4fcb-b372-c70b12a519b5
Ancestors: PreferenceBrowser-kfr.59

Hook up SystemWindow backgroundColor to PreferenceBrowser

=============== Diff against PreferenceBrowser-kfr.59 ===============

Item was changed:
  ----- Method: PreferenceBrowserMorph>>newCategoryList (in category 'submorphs - category list') -----
  newCategoryList
  ^(PluggableListMorph
  on: self model
  list: #categoryList
  selected: #selectedCategoryIndex
  changeSelected: #selectedCategoryIndex:)
+ color: SystemWindow backgroundColor;
- color: Color white;
  borderInset;
  hResizing: #spaceFill;
  vResizing: #spaceFill;
  layoutFrame: (LayoutFrame fractions: (0@0 corner: 0.25@1));
  yourself.!

Item was changed:
  ----- Method: PreferenceBrowserMorph>>newSearchTextField (in category 'submorphs - search panel') -----
  newSearchTextField
 
  | ptm  |
  ptm := PluggableTextMorphPlus
  on: self model
  text: #searchPatternNeverTriggered
  accept: #searchPattern:.
 
  ptm
  minimumHeight: 0;
  balloonText: 'Search preferences ...';
  hideScrollBarsIndefinitely;
  layoutFrame: (LayoutFrame fractions: (0@0 corner: 1@0) offsets: (0@0 corner: 0@ (TextStyle default lineGrid * 2)));
  borderInset;
+ color: SystemWindow backgroundColor;
- color: Color white;
  vResizing: #spaceFill;
  hResizing: #spaceFill;
  acceptOnCR: true;
  onKeyStrokeSend: #value to: [ ptm hasUnacceptedEdits ifTrue: [ ptm accept ] ].
  ^ptm.!

Item was changed:
  ----- Method: PreferenceBrowserMorph>>preferenceList (in category 'submorphs - preference list') -----
  preferenceList
  ^preferenceList ifNil:
  [preferenceList := ScrollPane new
+ color: SystemWindow backgroundColor;
- color: Color white;
  borderInset;
  vResizing: #spaceFill;
  hResizing: #spaceFill;
  layoutFrame: (LayoutFrame fractions: (0.25@0 corner: 1@1)).
  preferenceList scroller
  on: #mouseEnter send: #value:
  to: [:event | event hand newKeyboardFocus: preferenceList scroller];
  on: #keyStroke send: #keyPressed: to: self.
  preferenceList.]!