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

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

Name: PreferenceBrowser-mt.121
Author: mt
Time: 8 December 2021, 2:30:30.164213 pm
UUID: 5ef60dcd-d6b9-1340-af0e-2abd5e407de6
Ancestors: PreferenceBrowser-mt.120

Some high-dpi fixes for the preference browser.

=============== Diff against PreferenceBrowser-mt.120 ===============

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.5) truncated)!
- 	^LayoutFrame fractions: (0 at 0 corner: 1 at 0) offsets: (0 at 0 corner: 0@ (Preferences standardButtonFont height * 2))!

Item was added:
+ ----- Method: PreferenceBrowserMorph>>categoryListLayoutFrame (in category 'submorphs - category list') -----
+ categoryListLayoutFrame
+ 
+ 	^ LayoutFrame fractions: (0 at 0 corner: 0.25 at 1)!

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: ProportionalSplitterMorph gripThickness;
- 			cellGap: 5;
  			changeProportionalLayout;
  			on: #mouseEnter send: #paneTransition: to: self;
+ 			addMorph: self newCategoryList fullFrame: self categoryListLayoutFrame;
+ 			addMorph: self preferenceList fullFrame: self preferenceListLayoutFrame;
- 			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));
  			addPaneSplitters;
  			yourself].!

Item was added:
+ ----- Method: PreferenceBrowserMorph>>mainPanelLayoutFrame (in category 'submorphs - main panel') -----
+ mainPanelLayoutFrame
+ 
+ 	^ LayoutFrame
+ 		fractions: (0 at 0 corner: 1 at 1)
+ 		offsets: (0@ self searchTextFieldLayoutFrame bottomOffset corner: 0 at 0)!

Item was changed:
  ----- Method: PreferenceBrowserMorph>>newSearchTextField (in category 'submorphs - search panel') -----
  newSearchTextField
  	
  	| ptm  |
  	ptm := PluggableTextMorphPlus
  		on: self model
  		text: #searchPatternNeverTriggered
  		accept: #searchPattern:.
  	
  	ptm
  		name: #search;
  		minimumHeight: 0;
  		balloonText: 'Search preferences ...';
  		hideScrollBarsIndefinitely;
- 		layoutFrame: self searchTextFieldLayoutFrame;
- 		borderInset;
  		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.
+ 		preferenceList scroller changeTableLayout.
+ 		preferenceList]!
- 	^preferenceList ifNil:
- 		[preferenceList := ScrollPane new
- 			vResizing: #spaceFill;
- 			hResizing: #spaceFill;
- 			layoutFrame: (LayoutFrame fractions: (0.25 at 0 corner: 1 at 1) offsets: (4 at 0 corner: 0 at 0)).
- 		preferenceList scroller
- 			changeTableLayout.
- 		preferenceList.]!

Item was added:
+ ----- Method: PreferenceBrowserMorph>>preferenceListLayoutFrame (in category 'submorphs - preference list') -----
+ preferenceListLayoutFrame
+ 
+ 	^ LayoutFrame fractions: (0.25 at 0 corner: 1 at 1)!

Item was changed:
  ----- Method: PreferenceBrowserMorph>>rootPanel (in category 'submorphs - root panel') -----
  rootPanel
+ 
+ 	^ BorderedMorph new
- 	^BorderedMorph new
  		color: Color transparent;
  		borderWidth: 0;
+ 		cellGap: ProportionalSplitterMorph gripThickness;
  		changeProportionalLayout;
+ 		addMorph: self newSearchTextField fullFrame: self searchTextFieldLayoutFrame;
+ 		addMorph: self mainPanel fullFrame: self mainPanelLayoutFrame;
+ 		yourself!
- 		addMorphBack: self newSearchTextField;
- 		addMorphBack: self mainPanel;
- 		yourself.!

Item was changed:
  ----- 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) truncated)!
- 		offsets: (0 at 0 corner: 0@ (Preferences standardDefaultTextFont height * 3/2) rounded)!