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.!