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

commits at source.squeak.org commits at source.squeak.org
Wed May 18 14:04:12 UTC 2022


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

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

Name: PreferenceBrowser-mt.149
Author: mt
Time: 18 May 2022, 4:04:11.436464 pm
UUID: 996a611a-6005-0247-8c7c-fc615aa42bc4
Ancestors: PreferenceBrowser-mt.148

In the wizard, load deprecated stuff after updating the image so that Metacello can be loaded.

Note that we still have to figure out a way to fix that Metacello boostrap code... -.-"

=============== Diff against PreferenceBrowser-mt.148 ===============

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