[squeak-dev] The Trunk: PreferenceBrowser-mt.135.mcz
commits at source.squeak.org
commits at source.squeak.org
Mon Feb 14 09:26:06 UTC 2022
Marcel Taeumel uploaded a new version of PreferenceBrowser to project The Trunk:
http://source.squeak.org/trunk/PreferenceBrowser-mt.135.mcz
==================== Summary ====================
Name: PreferenceBrowser-mt.135
Author: mt
Time: 14 February 2022, 10:26:05.72181 am
UUID: 1b2c28f4-539f-0f40-94b3-180f5db8d97a
Ancestors: PreferenceBrowser-mt.134
Move color-related preferences onto "Choose UI theme" page in preference wizard.
Thanks to Christoph (ct) for the tip!
=============== Diff against PreferenceBrowser-mt.134 ===============
Item was changed:
----- Method: PreferenceWizardMorph>>initializePage01Themes (in category 'initialization - pages') -----
initializePage01Themes
| currentPage pane |
currentPage := pages add: self createPage.
pane := self createScrollPane.
currentPage addMorphBack: (self createLabel: 'Choose a theme' color: Color white).
currentPage addMorphBack: pane.
((UserInterfaceTheme allThemes
select: [:uit | uit isGenuine])
sorted: [:a :b | a name <= b name])
do: [:ea |
pane scroller firstSubmorph addMorphBack: (self
createRadioButton: ea name
for: #Theme
argument: ea)].
+
+ pane scroller firstSubmorph addAllMorphsBack: {
+ self createVerticalSpace.
+ self createCheckbox: 'Colorful windows' translated for: #UseColorfulWindows help: #(color window).
+ self createCheckbox: 'Colorful source code' translated for: #UseColorfulSourceCode help: #(syntax you type).
+ self createCheckbox: 'Flat widget look' translated for: #Gradients help: 'Whether to use gradients or not.' translated.
+ }. !
-
- currentPage addMorphBack: (self createLabel: 'Note that "Colorful windows" show colors that fit the current theme. See next page.' translated color: Color banana)!
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).
}.!
Item was added:
+ ----- Method: PreferenceWizardMorph>>stateUseColorfulSourceCode (in category 'actions - buttons') -----
+ stateUseColorfulSourceCode
+
+ ^ SHTextStylerST80 syntaxHighlightingAsYouType!
Item was added:
+ ----- Method: PreferenceWizardMorph>>toggleUseColorfulSourceCode (in category 'actions - buttons') -----
+ toggleUseColorfulSourceCode
+
+ SHTextStylerST80 syntaxHighlightingAsYouType: SHTextStylerST80 syntaxHighlightingAsYouType not.
+ self changed: #stateUseColorfulSourceCode.!
More information about the Squeak-dev
mailing list
|