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

commits at source.squeak.org commits at source.squeak.org
Tue Mar 22 08:21:38 UTC 2022

Marcel Taeumel uploaded a new version of PreferenceBrowser to project The Trunk:

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

Name: PreferenceBrowser-mt.138
Author: mt
Time: 22 March 2022, 9:21:37.875661 am
UUID: 9b7294f1-999a-2649-ba2f-40dc2c64bd39
Ancestors: PreferenceBrowser-mt.137

Minor layout tweaks in preference wizard.

=============== Diff against PreferenceBrowser-mt.137 ===============

Item was added:
+ ----- Method: PreferenceWizardMorph>>defaultTextStyle (in category 'initialization') -----
+ defaultTextStyle
+ 	^ self defaultFont textStyle!

Item was changed:
  ----- Method: PreferenceWizardMorph>>initializePage99ExtraPackages (in category 'initialization - pages') -----
  	"Let the user install extra packages."
  	| currentPage packagesList installButton |
  	currentPage := self createPage.
  		cellPositioning: #topCenter;
  		addMorphBack: self createHorizontalSpacer;
+ 		addMorphBack: ((self createLabel: 'Do you want to install extra packages?' translated color: Color white)
- 		addMorphBack: ((self createLabel: 'Do you want to install extra packages?' color: Color white)
  			hResizing: #shrinkWrap;
+ 			numCharactersPerLine: 65;
+ 		addMorphBack: ((self createLabel: 'Note that the installation process requires a network connection with Internet access and might take several minutes.' translated color: (Color gray: 0.9))
+ 			hResizing: #shrinkWrap;
+ 			numCharactersPerLine: 65;
- 		addMorphBack: ((self createLabel: 'Note that the installation process requires a network connection with Internet access and might take several minutes.' color: (Color gray: 0.9))
- 			hResizing: #rigid;
- 			vResizing: #shrinkWrap;
- 			width: (self defaultFont widthOf: $x) * 55;
  	currentPage submorphs last text addAttribute: TextAlignment centered.
  	currentPage submorphs last layoutChanged.
  	currentPage addMorphBack: (self createVerticalSpace height: self layoutInset).
  	packagesList := self createScrollPane.
+ 		width: (self defaultTextStyle compositionWidthFor: 65);
- 		width: (self defaultFont widthOf: $x) * 40;
  		hResizing: #rigid;
  		vResizing: #spaceFill.
  	packagesList scroller firstSubmorph addAllMorphsBack: {
  		self createCheckbox: 'Latest system updates' translated for: #InstallLatestUpdates help: 'Install the latest patches for ' translated, SystemVersion current version.
  		self createCheckbox: 'Refactoring support in code browsers' translated for: #InstallRefactoringTools help: 'Refactoring is a process of re-writing or re-organizing text or code. The purpose of a refactor is to make the code or text more understandable and readable while exactly preserving its meaning and behavior' translated.
  		self createCheckbox: 'Autocomplete in code editors' translated for: #InstallAutoComplete help: 'Package that provides interactive, context-sensitive auto-completion for Squeak' translated.
  		self createCheckbox: 'Git support and browser' translated for: #InstallGitInfrastructure help: 'From the Git Browser, you can create new commits, synchronize with remote repositories (fetch, pull, push), manage and merge branches, switch between them, and compare different versions' translated.
  		self createCheckbox: 'Foreign function interface (FFI)' translated for: #InstallFFI help: 'FFI, the Squeak Foreign Function Interface, is used to call functions located in shared libraries that are not part of the Squeak VM nor its plugins' translated.
  		self createCheckbox: 'Access OS functions' translated for: #InstallOSProcess help: 'OSProcess provides access to operating system functions, including pipes and child process creation' translated.
  		self createCheckbox: 'Integrate Squeak''s mailing lists' translated for: #InstallSqueakInboxTalk help: 'Through Squeak Inbox Talk, you can engage with our community from within Squeak using tools that integrate our mailing lists such as squeak-dev and vm-dev' translated.
  	currentPage addMorphBack: packagesList.
  	currentPage addMorphBack: ((self createLabel: 'Find more on www.squeak.org/projects' color: (Color gray: 0.9))
  		hResizing: #shrinkWrap; yourself).
  	installButton := self createButton
  		action: #installExtraPackagesVia:;
  		label: 'Yes, install selected packages.' translated;
  		setProperty: #label toValue: installButton label;
  		arguments: {installButton}.
  	currentPage addMorphBack: installButton.
  	currentPage addMorphBack: (self createButton action: #showSqueak; label: 'No, maybe later.' translated).
  	^ currentPage!

More information about the Squeak-dev mailing list