[squeak-dev] The Trunk: PreferenceBrowser-mt.153.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Jun 22 12:35:11 UTC 2022


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

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

Name: PreferenceBrowser-mt.153
Author: mt
Time: 22 June 2022, 2:35:09.948723 pm
UUID: 1d76cad0-b98a-074f-95ec-be9307ccac36
Ancestors: PreferenceBrowser-ct.152

Fix/clarify label for Shout in wizard. Add workspace-specific styling option as well.

=============== Diff against PreferenceBrowser-ct.152 ===============

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' translated 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: 'Whether to use Shout (Syntax Highlighting As You Type) in code browsers.' translated.
  		self createCheckbox: 'Flat widget look' translated for: #Gradients help: 'Whether to use gradients or not.' translated.
+ 		self createCheckbox: 'Syntax highlighting' translated for: #UseColorfulSourceCode help: 'Whether to use Shout (Syntax Highlighting As You Type) in all code browsers.' translated.
+ 		self createCheckbox: 'Syntax highlighting in workspaces' translated for: #UseColorfulSourceCodeInWorkspaces help: 'Whether to use Shout (Syntax Highlighting As You Type) in all workspaces. This can also be enabled and disabled per workspace via window menu.' translated.
  	}.!

Item was added:
+ ----- Method: PreferenceWizardMorph>>stateUseColorfulSourceCodeInWorkspaces (in category 'actions - buttons') -----
+ stateUseColorfulSourceCodeInWorkspaces
+ 
+ 	^ Workspace shouldStyle!

Item was changed:
  ----- Method: PreferenceWizardMorph>>toggleUseColorfulSourceCode (in category 'actions - buttons') -----
  toggleUseColorfulSourceCode
  
  	SHTextStylerST80 syntaxHighlightingAsYouType: SHTextStylerST80 syntaxHighlightingAsYouType not.
+ 	self changed: #stateUseColorfulSourceCode.
+ 	
+ 	Workspace shouldStyle: (Workspace shouldStyle and: [SHTextStylerST80 syntaxHighlightingAsYouType]).
+ 	self changed: #stateUseColorfulSourceCodeInWorkspaces.!
- 	self changed: #stateUseColorfulSourceCode.!

Item was added:
+ ----- Method: PreferenceWizardMorph>>toggleUseColorfulSourceCodeInWorkspaces (in category 'actions - buttons') -----
+ toggleUseColorfulSourceCodeInWorkspaces
+ 
+ 	Workspace shouldStyle: Workspace shouldStyle not.
+ 	self changed: #stateUseColorfulSourceCodeInWorkspaces.
+ 
+ 	SHTextStylerST80 syntaxHighlightingAsYouType: (SHTextStylerST80 syntaxHighlightingAsYouType or: [Workspace shouldStyle]).
+ 	self changed: #stateUseColorfulSourceCode.!



More information about the Squeak-dev mailing list