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

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

Name: PreferenceBrowser-mt.148
Author: mt
Time: 18 May 2022, 2:34:31.661855 pm
UUID: d9f585b5-a9a4-9a4b-b495-17d4cac3db9f
Ancestors: PreferenceBrowser-ct.147

Add option to load 60Deprecated via preference wizard.

=============== Diff against PreferenceBrowser-ct.147 ===============

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.
  	}.
  		
  	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 added:
+ ----- Method: PreferenceWizardMorph>>installCompatibilityPackages (in category 'actions - packages') -----
+ installCompatibilityPackages
+ 	"Install packages that ensure compatibility of older applications not specifically updated to run in this version."
+ 	
+ 	Installer squeak
+ 		project: 'squeak60';
+ 		addPackage: '60Deprecated';
+ 		install.!

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
  		InstallMetacello
  		InstallRefactoringTools
  		InstallAutoComplete
  		InstallGitInfrastructure
  		InstallFFI
  		InstallOSProcess
+ 		InstallSqueakInboxTalk
+ 		InstallCompatibilityPackages )
- 		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].!

Item was added:
+ ----- Method: PreferenceWizardMorph>>stateInstallCompatibilityPackages (in category 'actions - packages') -----
+ stateInstallCompatibilityPackages
+ 
+ 	^ self
+ 		valueOfProperty: #InstallCompatibilityPackages
+ 		ifAbsent: [false]
+ !

Item was added:
+ ----- Method: PreferenceWizardMorph>>toggleInstallCompatibilityPackages (in category 'actions - packages') -----
+ toggleInstallCompatibilityPackages
+ 
+ 	self
+ 		setProperty: #InstallCompatibilityPackages
+ 		toValue: self stateInstallCompatibilityPackages not.
+ 	self changed: #stateInstallCompatibilityPackages.!