[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