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

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

Name: PreferenceBrowser-mt.134
Author: mt
Time: 11 February 2022, 12:16:45.693856 pm
UUID: 10283c2f-a1d9-6145-9b41-9ac498ee2389
Ancestors: PreferenceBrowser-mt.133

Complements Morphic-mt.1892

=============== Diff against PreferenceBrowser-mt.133 ===============

Item was changed:
  ----- Method: PreferenceWizardMorph>>initializePage02Visuals (in category 'initialization - pages') -----
  initializePage02Visuals
  
  	| currentPage pane |
  	currentPage := pages add: self createPage.
  	pane := self createScrollPane.
  	
  	currentPage addMorphBack: (self createLabel: 'Choose visual settings' color: Color white).
  	currentPage addMorphBack: pane.
  	
  	pane scroller firstSubmorph addAllMorphsBack: {
  		self createCheckbox: 'Colorful windows' translated for: #UseColorfulWindows help: #(color window).
  		self createCheckbox: 'Flat widget look' translated for: #Gradients help: 'Whether to use gradients or not.' translated.
  		self createVerticalSpace.
  		self createCheckbox: 'Rounded windows' translated for: #RoundedWindowLook help: #(round window).
  		self createCheckbox: 'Rounded buttons' translated for: #RoundedButtonLook help: #(round button).
  		self createVerticalSpace.
+ 		self createCheckbox: 'Compact list widgets' translated for: #UseCompactLists help: #(compact list).	
+ 		self createCheckbox: 'Compact text widgets' translated for: #UseCompactTextFields help: #(compact text).	
+ 		self createCheckbox: 'Compact button widgets' translated for: #UseCompactButtons help: #(compact text).	
+ 		self createVerticalSpace.
  		self createCheckbox: 'Soft shadows' translated for: #SoftShadows help: #(soft shadow).
  		self createCheckbox: 'Hard shadows' translated for: #HardShadows help: 'Whether to use a hard shadow for windows, menus, and dialogs.' translated.
  		self createVerticalSpace.
  		self createCheckbox: 'Fast drag and resize' translated for: #FastDrag help: #(fast drag).
  		self createCheckbox: 'Blinking text cursor' translated for: #BlinkingCursor help: #(blinking cursor).
  		self createCheckbox: 'Show keyboard focus' translated for: #ShowKeyboardFocus help: #(keyboard indicate).		
  		self createCheckbox: 'Simple edit indication' translated for: #SimpleFrameAdornments help: #(adornment simple).
- 		self createCheckbox: 'Compact list widgets' translated for: #UseCompactLists help: #(compact list).	
  		}.!

Item was added:
+ ----- Method: PreferenceWizardMorph>>resetWorld (in category 'updating') -----
+ resetWorld
+ 
+ 	previewWorld delete.
+ 	previewWorld := nil.
+ 	self initializePreviewWorld.
+ 	self addMorph: previewWorld.
+ 	self updateWindowBounds.!

Item was added:
+ ----- Method: PreferenceWizardMorph>>stateUseCompactButtons (in category 'actions - buttons') -----
+ stateUseCompactButtons
+ 
+ 	^ MorphicProject useCompactButtons!

Item was added:
+ ----- Method: PreferenceWizardMorph>>stateUseCompactTextFields (in category 'actions - buttons') -----
+ stateUseCompactTextFields
+ 
+ 	^ MorphicProject useCompactTextFields!

Item was added:
+ ----- Method: PreferenceWizardMorph>>toggleUseCompactButtons (in category 'actions - buttons') -----
+ toggleUseCompactButtons
+ 
+ 	MorphicProject useCompactButtons: MorphicProject useCompactButtons not.
+ 	self changed: #stateUseCompactButtons.
+ 	self resetWorld.!

Item was added:
+ ----- Method: PreferenceWizardMorph>>toggleUseCompactTextFields (in category 'actions - buttons') -----
+ toggleUseCompactTextFields
+ 
+ 	MorphicProject useCompactTextFields: MorphicProject useCompactTextFields not.
+ 	self changed: #stateUseCompactTextFields.
+ 	self resetWorld.!