Marcel Taeumel uploaded a new version of PreferenceBrowser to project The Trunk:
http://source.squeak.org/trunk/PreferenceBrowser-mt.105.mcz

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

Name: PreferenceBrowser-mt.105
Author: mt
Time: 15 July 2020, 9:04:35.150352 am
UUID: 6f3e4cc4-0188-4748-abd0-b8f6e3bec8f6
Ancestors: PreferenceBrowser-mt.104

Minor tweaks of visuals in preference browser to match other tools' appearance.

=============== Diff against PreferenceBrowser-mt.104 ===============

Item was changed:
  ----- Method: PreferenceBrowserMorph>>basicButton (in category 'submorphs - buttons') -----
  basicButton
  
  	^ PluggableButtonMorph new
  		model: self model;
  		offColor: self paneColor;
  		hResizing: #spaceFill;
+ 		vResizing: #spaceFill;
  		layoutInset: 4;
  		yourself!

Item was changed:
  ----- Method: PreferenceBrowserMorph>>buttonRowLayoutFrame (in category 'submorphs - buttons') -----
  buttonRowLayoutFrame 
+ 	^LayoutFrame fractions: (0 at 0 corner: 1 at 0) offsets: (0 at 0 corner: 0@ (Preferences standardButtonFont height * 2))!
- 	^LayoutFrame fractions: (0 at 0 corner: 1 at 0) offsets: (0 at 0 corner: 0@ (TextStyle defaultFont height * 2.5))!

Item was changed:
  ----- Method: PreferenceBrowserMorph>>mainPanel (in category 'submorphs - main panel') -----
  mainPanel
  	^mainPanel ifNil: 
  		[mainPanel := BorderedMorph new
  			color: Color transparent;
  			borderWidth: 0;
  			hResizing: #spaceFill;
  			vResizing: #spaceFill;
  			cellGap: 5;
  			changeProportionalLayout;
  			on: #mouseEnter send: #paneTransition: to: self;
  			addMorphBack: self newCategoryList;
  			addMorphBack: self preferenceList;
+ 			layoutFrame: (LayoutFrame fractions: (0 at 0 corner: 1 at 1) offsets: (0@ self searchTextFieldLayoutFrame bottomOffset corner: 0 at 0));
- 			layoutFrame: (LayoutFrame fractions: (0 at 0 corner: 1 at 1) offsets: (0@ 30 corner: 0 at 0));
  			addPaneSplitters;
  			yourself].!

Item was changed:
  ----- Method: PreferenceBrowserMorph>>newButtonRow (in category 'submorphs - buttons') -----
  newButtonRow
  	^BorderedMorph new
  		color: Color transparent;
  		borderWidth: 0;
  		cellGap: 2;
- 		layoutInset: 2;
  		layoutPolicy: TableLayout new;
  		listDirection: #leftToRight;
  		listCentering: #topLeft;
  		cellPositioning: #topLeft;
  		on: #mouseEnter send: #paneTransition: to: self;
  		on: #mouseLeave send: #paneTransition: to: self;
  		addMorphBack: self defaultButton;
  		addMorphBack: self newSeparator;
  		addMorphBack: self saveButton;
  		addMorphBack: self loadButton;
  		addMorphBack: self newSeparator;
  		addMorphBack: self saveToDiskButton;
  		addMorphBack: self loadFromDiskButton;
  		addMorphBack: self newSeparator;
  		addMorphBack: self themeButton;
  		addMorphBack: self newTransparentFiller;
  		addMorphBack: self helpButton;
  		yourself.!

Item was removed:
- ----- Method: PreferenceBrowserMorph>>newSearchButton (in category 'submorphs - search panel') -----
- newSearchButton
- 	^self basicButton
- 			label: 'search' translated; 
- 			actionSelector: #searchSelected;
- 			setBalloonText: 
- 				'Type what you want to search for here, then hit ',
- 				'the "Search" button, or else hit RETURN or ENTER' translated.!

Item was removed:
- ----- Method: PreferenceBrowserMorph>>newSearchPanel (in category 'submorphs - search panel') -----
- newSearchPanel
- 	| bottom |
- 	bottom := Morph new
- 		color: Color transparent;
- 		cellGap: 5;
- 		layoutPolicy: TableLayout new;
- 		listDirection: #leftToRight;
- 		listCentering: #topLeft;
- 		cellPositioning: #topLeft;
- 		hResizing: #spaceFill;
- 		vResizing: #shrinkWrap;
- 		addMorphBack: self newSearchTextField
- 		yourself.
- 	^Morph new
- 		color: Color transparent;
- 		layoutPolicy: TableLayout new;
- 		listDirection: #topToBottom;
- 		listCentering: #topLeft;
- 		cellPositioning: #topLeft;
- 		hResizing: #spaceFill;
- 		vResizing: #shrinkWrap;
- 		cellGap: 3;
- 		addMorphBack: (StringMorph contents: 'Search preferences for: ');
- 		addMorphBack: bottom;
- 		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: self searchTextFieldLayoutFrame;
- 		layoutFrame: (LayoutFrame fractions: (0 at 0 corner: 1 at 0) offsets: (0 at 0 corner: 0@ (TextStyle default lineGrid * 2)));
  		borderInset;
  		vResizing: #spaceFill;
  		hResizing: #spaceFill;
  		acceptOnCR: true;
  		onKeyStrokeSend: #value to: [ ptm hasUnacceptedEdits ifTrue: [ ptm accept ] ].
  	^ptm.!

Item was added:
+ ----- Method: PreferenceBrowserMorph>>searchTextFieldLayoutFrame (in category 'submorphs - search panel') -----
+ searchTextFieldLayoutFrame
+ 	
+ 	^ LayoutFrame
+ 		fractions: (0 at 0 corner: 1 at 0)
+ 		offsets: (0 at 0 corner: 0@ (Preferences standardDefaultTextFont height * 3/2) rounded)!