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.!
packages@lists.squeakfoundation.org