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 at 0 corner: 0.25 at 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 at 0 corner: 1 at 0) offsets: (0 at 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 at 0 corner: 1 at 1)).
  		preferenceList scroller
  			on: #mouseEnter send: #value: 
  				to: [:event | event hand newKeyboardFocus: preferenceList scroller];
  			on: #keyStroke send: #keyPressed: to: self.
  		preferenceList.]!