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

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

Name: PreferenceBrowser-mt.155
Author: mt
Time: 20 January 2023, 6:49:09.406382 pm
UUID: 6e676602-7bfe-f846-922f-7dc9b403571f
Ancestors: PreferenceBrowser-mt.154

Complements System-mt.1385

=============== Diff against PreferenceBrowser-mt.154 ===============

Item was added:
+ ----- Method: PreferenceBrowser>>initialExtentKey (in category 'initialize-release') -----
+ initialExtentKey
+ 
+ 	^ { self class name . title }!

Item was changed:
  ----- Method: PreferenceBrowserMorph>>initializeWithModel: (in category 'initialization') -----
  initializeWithModel: aPreferenceBrowser
  	lastKeystrokeTime := 0.
  	lastKeystrokes := ''.
  	self
  		defaultFocusMorph: #search;
  		hResizing: #spaceFill; "Snap #extent to grid if enabled. See #worldGridEnabled."
  		vResizing: #spaceFill; "Snap #extent to grid if enabled. See #worldGridEnabled."
  		model: aPreferenceBrowser;
  		setLabel: self model windowTitle;
  		name: 'PreferenceBrowser';
  		addMorph: self rootPanel fullFrame: self rootPanelLayoutFrame;
  		addMorph: self newButtonRow fullFrame: self buttonRowLayoutFrame;
  		"Set bounds like the MorphicToolBuilder does when building windows."
  		bounds: (RealEstateAgent 
  			initialFrameFor: self 
+ 			initialExtent: ((RealEstateAgent savedExtentFor: aPreferenceBrowser)
+ 				ifNil: [aPreferenceBrowser initialExtent]
+ 				ifNotNil: [:initialExtent | (initialExtent * RealEstateAgent scaleFactor) rounded])
- 			initialExtent: aPreferenceBrowser initialExtent
  			world: self currentWorld).!