The Trunk: ReleaseBuilder-mt.255.mcz

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

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

Name: ReleaseBuilder-mt.255
Author: mt
Time: 30 July 2026, 10:32:07.779186 am
UUID: b84bad78-0d86-6d49-99b1-9f00be05322a
Ancestors: ReleaseBuilder-ct.254

Reduce flickering on first startup; make startup faster on slow platforms (e.g., SqueakJS).

=============== Diff against ReleaseBuilder-ct.254 ===============

Item was changed:
  ----- Method: ReleaseBuilder class>>configureProjects (in category 'scripts') -----
  configureProjects
  	"Set up the desired configuration of projects, which might be a single project, multiple projects..."
  	
  	| homeProject rootProject |
  	homeProject := Project current.
  	rootProject := homeProject.
  	
  	homeProject isMorphic ifFalse: [
  		Warning signal: 'The current project is not Morphic. Please create a new Morphic project, enter it, and restart the release building process.' translated].
  	
  	"The home project is a single Morphic project. Let the home project have a parent MVC project as the root of the project tree. The MVC project supports emergency debugging in the event of unrecoverable Morphic problems, and will fall back on the traditional emergency evaluator if MVC debugging fails. If MVC is not installed in the image, then do nothing."
  	Project current removeAllOtherProjects.
  	(Smalltalk classNamed: #MVCProject)
  		ifNil: [Warning signal: 'MVC must be installed in the release image.' translated]
  		ifNotNil: [:mvc | rootProject := mvc new].
  		
+ 	rootProject name: self rootProjectName.
+ 	homeProject name: self homeProjectName. 
- 	rootProject name: 'RootProject'.
- 	homeProject name: 'HomeProject'. 
  
  	self
  		assert: homeProject isTopProject;
  		assert: rootProject isTopProject not.
  
  	rootProject beTopProject.
  
  	self
  		assert: rootProject isTopProject;
  		assert: homeProject isTopProject not.
  	
  	self
  		assert: rootProject subProjects size = 1;
  		assert: homeProject parent == rootProject;
  		assert: rootProject isMVC.!

Item was changed:
  ----- Method: ReleaseBuilder class>>configureTools (in category 'scripts') -----
  configureTools
  	"Initialize well-known tools and other resources."
  
  	FileList initialize. 
  	FileServices initialize. "register file reader services"
  	RealEstateAgent standardSize: 650@425.
  	SMLoaderPlus setDefaultFilters: #(filterSafelyAvailable).
  	
  	self beautifyEtoys.
  
  	"Default applications and tools."
  	SystemBrowser default: TreeBrowser.
  	MailSender default: nil.
  	SoundService default: BaseSoundSystem.
  	ToolSet default: StandardToolSet.
  	WebBrowser default: nil.
+ 
+ 	"Prepare caches for fast startup."
+ 	Form squeakLogoInverted. "For ObjectlandMorph. Too slow on SqueakJS, for example."!
- !

Item was added:
+ ----- Method: ReleaseBuilder class>>homeProjectName (in category 'accessing') -----
+ homeProjectName
+ 
+ 	^ 'HomeProject'!

Item was changed:
  ----- Method: ReleaseBuilder class>>prepareEnvironment (in category 'preparing') -----
  prepareEnvironment
  	"Prepare everything that should be done for a new image build. Clear caches, passwords, etc. Note that this will be called automatically in the CI on github.com/squeak-smalltalk/squeak-app."
  	
  	| balloon |
  	
  	self
  		clearCaches;
  		configureProjects;
  		configureTools;
  		setPreferences;
  		clearPreferenceCaches;
  		configureDesktop.
  	
  	balloon := self getBalloonForm. "Get now because later the file might be missing."
  	DeferredTask := [
+ 		DisplayScreen checkForNewScreenScaleFactor; checkForNewScreenSize.
- 		DisplayScreen checkForNewScreenScaleFactor.
  		self openWelcomeWorkspacesWith: (balloon ifNotNil: [balloon scaleFormToDisplay]).
+ 		ObjectlandMorph openObjectlandStarter. ChangesOrganizer noteChangeSetsInRelease.
- 		ObjectlandMorph openObjectlandStarter.
  		PreferenceWizardMorph open].
  	
  	"If you save-and-quit the image after calling #prepareEnvironment, ensure that the next image startup will be fast."
  	Project current world doOneCycle.
  	Display platformScaleFactor: nil; platformScaleFactor: 1.0.!

Item was added:
+ ----- Method: ReleaseBuilder class>>rootProjectName (in category 'accessing') -----
+ rootProjectName
+ 
+ 	^ 'RootProject'!

Squeak-dev mailing list -- [email protected]
To unsubscribe send an email to [email protected]