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

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

Name: PreferenceBrowser-mt.133
Author: mt
Time: 10 February 2022, 2:45:39.960689 pm
UUID: 3c82a473-59e7-d542-8c32-22c8a2a103da
Ancestors: PreferenceBrowser-mt.132

Menus are more like button "rows" than windows. Thus, the wizard should make menus rounded when buttons should look rounded and not when windows should look rounded. Note that this is an aggregation of the numerous rounded-or-not preferences we have.

=============== Diff against PreferenceBrowser-mt.132 ===============

Item was changed:
  ----- Method: PreferenceWizardMorph>>initializePage05Tools (in category 'initialization - pages') -----
  initializePage05Tools
  
  	| currentPage pane |
  	currentPage := pages add: self createPage.
  	pane := self createScrollPane.
  	
  	currentPage addMorphBack: (self createLabel: 'Choose other settings' color: Color white).
  	currentPage addMorphBack: pane.
  	
  	pane scroller firstSubmorph addAllMorphsBack: {
  		self createCheckbox: 'Trace messages browser' translated for: #TraceMessages help: #(trace message).
  		self createCheckbox: 'Browse class hierarchy' translated for: #AlternativeBrowseIt help: 'Whether to spawn a hierarchy browser or full system browser on browse-it commands.' translated.
  		self createVerticalSpace.
  		self createCheckbox: 'Reuse tool windows' translated for: #ReuseWindows help: #(window reuse).
  		self createCheckbox: 'Tool and menu icons' translated for: #ToolAndMenuIcons help: 'Whether to show icons in tools and menus.' translated.
  		self createVerticalSpace.
  		self createCheckbox: 'Embed Transcript in Workspace' translated for: #WorkspaceEmbedTranscript help: #(workspace transcript).
+ 		self createCheckbox: 'File out Workspace on accept' translated for: #WorkspaceFileOutOnAccept help: #(workspace accept).
- 		self createCheckbox: 'File-out on accept' translated for: #WorkspaceFileOutOnAccept help: #(workspace accept).
  		}.
  !

Item was changed:
  ----- Method: PreferenceWizardMorph>>toggleRoundedButtonLook (in category 'actions - buttons') -----
  toggleRoundedButtonLook
  
  	| switch |
  	switch := PluggableButtonMorph roundedButtonCorners not.
  	
  	PluggableButtonMorph roundedButtonCorners: switch.
  	ScrollBar roundedScrollBarLook: switch.
+ 	MenuMorph roundedMenuCorners: switch.
  	
  	self changed: #stateRoundedButtonLook.!

Item was changed:
  ----- Method: PreferenceWizardMorph>>toggleRoundedWindowLook (in category 'actions - buttons') -----
  toggleRoundedWindowLook
  
  	| switch |
  	switch := SystemWindow roundedWindowCorners not.
  	
  	SystemWindow roundedWindowCorners: switch.
  	DialogWindow roundedDialogCorners: switch.
- 	MenuMorph roundedMenuCorners: switch.
  	
  	self changed: #stateRoundedWindowLook.!