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

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

Name: PreferenceBrowser-mt.129
Author: mt
Time: 5 February 2022, 4:23:52.931491 pm
UUID: e2046d52-8f28-5a4c-a06c-f52565e92de2
Ancestors: PreferenceBrowser-mt.128

Adds new #useCompactLists preference to wizard in case people are worried that Squeak now looks "too spacey" :-)

=============== Diff against PreferenceBrowser-mt.128 ===============

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: '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).	
- 		self createCheckbox: 'Simple edit indication' translated for: #SimpleFrameAdornments help: #(adornment simple).		
  		}.!

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

Item was added:
+ ----- Method: PreferenceWizardMorph>>toggleUseCompactLists (in category 'actions - buttons') -----
+ toggleUseCompactLists
+ 
+ 	MorphicProject useCompactLists: MorphicProject useCompactLists not.
+ 	self changed: #stateUseCompactLists.!