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

commits at source.squeak.org commits at source.squeak.org
Wed Jun 15 10:20:12 UTC 2022


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

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

Name: PreferenceBrowser-mt.150
Author: mt
Time: 15 June 2022, 12:20:11.60431 pm
UUID: 59246927-cb5d-ff4c-bef2-918658d0acdd
Ancestors: PreferenceBrowser-mt.149

Experiment is over. Load 60Deprecated again by default. Opt-out via Monticello Browser -> Unload Package.

=============== Diff against PreferenceBrowser-mt.149 ===============

Item was changed:
  ----- Method: PreferenceWizardMorph>>initializePage99ExtraPackages (in category 'initialization - pages') -----
  initializePage99ExtraPackages
  	"Let the user install extra packages."
  
  	| currentPage packagesList installButton |
  	currentPage := self createPage.
  	currentPage
  		cellPositioning: #topCenter;
  		addMorphBack: self createHorizontalSpacer;
  		addMorphBack: ((self createLabel: 'Do you want to install extra packages?' translated color: Color white)
  			hResizing: #shrinkWrap;
  			averageLineLength: 65;
  			yourself);
  		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;
  			averageLineLength: 65;
  			yourself).
  	
  	currentPage submorphs last text addAttribute: TextAlignment centered.
  	currentPage submorphs last layoutChanged.
  	
  	currentPage addMorphBack: (self createVerticalSpace height: self layoutInset).
  	
  	packagesList := self createScrollPane.
  	packagesList
  		width: (self defaultTextStyle compositionWidthFor: 65);
  		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.
+ 		"self createCheckbox: 'Compatibility packages for legacy apps' translated for: #InstallCompatibilityPackages help: 'Install protocols (i.e., classes and methods) that got deprecated for this version to make older applications work without changes.' translated."
- 		self createCheckbox: 'Compatibility packages for legacy apps' translated for: #InstallCompatibilityPackages help: 'Install protocols (i.e., classes and methods) that got deprecated for this version to make older applications work without changes.' 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;
  		yourself.
  	installButton
  		setProperty: #label toValue: installButton label;
  		arguments: {installButton}.
  	
  	currentPage addMorphBack: installButton.
  	currentPage addMorphBack: (self createButton action: #showSqueak; label: 'No, maybe later.' translated).
  	
  	^ currentPage!

Item was changed:
  ----- Method: PreferenceWizardMorph>>installExtraPackages (in category 'actions') -----
  installExtraPackages
  	"Removes the buttons and adds the progress bar during installation."
  	
  	| steps page |
  	self removeProperty: #checkInternet. "No frequent checks for connectivity from here."
  	
  	steps := #(
  		InstallLatestUpdates
+ 		"InstallCompatibilityPackages"
- 		InstallCompatibilityPackages
  		InstallMetacello
  		InstallRefactoringTools
  		InstallAutoComplete
  		InstallGitInfrastructure
  		InstallFFI
  		InstallOSProcess
  		InstallSqueakInboxTalk )
  			select: [:ea | self perform: ('state', ea) asSymbol].
  	
  	page := controlMorph firstSubmorph.
  
  	page submorphs second hide. "question"
  	page submorphs last delete. "url"
  	page submorphs last delete. "no button"
  	page submorphs last delete. "yes button"
  	page submorphs last delete. "package list"
  	
  	self refreshWorld.
  	
  	[
  		PreferenceWizardProgressMorph install.
  		page
  			addMorphBack: PreferenceWizardProgressMorph uniqueInstance;
  			addMorphBack: self createVerticalSpacer.
  			
  		steps
  			do: [:step | self perform: step withFirstCharacterDownshifted asSymbol]
  			displayingProgress: [:step | String streamContents: [:s |
  				step findFeatureIndicesDo: [:start :end |
  					s nextPutAll: (step copyFrom: start to: end); space].
  				s nextPutAll: '...']].
  	] ensure: [
  		PreferenceWizardProgressMorph reset.
  		self showSqueak].!



More information about the Squeak-dev mailing list