[Pkg] The Trunk: ReleaseBuilder-mt.162.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Aug 17 20:15:08 UTC 2016


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

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

Name: ReleaseBuilder-mt.162
Author: mt
Time: 17 August 2016, 10:14:59.92 pm
UUID: 2e5e2125-63e3-9f46-adc6-597fa269e068
Ancestors: ReleaseBuilder-mt.161

Preserve balloon even if open welcome workspace on first image start.

=============== Diff against ReleaseBuilder-mt.161 ===============

Item was added:
+ ----- Method: ReleaseBuilder class>>getBalloonForm (in category 'scripts - support') -----
+ getBalloonForm
+ 
+ 	^ (FileDirectory default fileExists: 'balloon.png')
+ 		ifFalse: [nil]
+ 		ifTrue: [Form fromFileNamed: 'balloon.png']!

Item was changed:
  ----- Method: ReleaseBuilder class>>openWelcomeWorkspaces (in category 'scripts - support') -----
  openWelcomeWorkspaces
  
+ 	self openWelcomeWorkspacesWith: nil.!
- 	| t browser balloon |
- 	t := HelpTopic title: 'Welcome to Squeak' readOnlyContents: 'Please choose a topic from the left sidebare.'.
- 
- 	t subtopics
- 		add: (SqueakHelp asHelpTopic subtopics detect: [:ea | ea key = #introduction]);
- 		add: SqueakLicenseHelp asHelpTopic;
- 		add: (SqueakProjectHelp asHelpTopic subtopics detect: [:ea | ea key = #squeakUserInterface]);
- 		add: (SqueakProjectHelp asHelpTopic subtopics detect: [:ea | ea key = #workingWithSqueak]);
- 		add: SqueakReleaseNotes asHelpTopic.
- 	
- 	browser := HelpBrowser openOn: t.
- 	browser extent: browser world extent * 0.6.
- 	browser center: browser world center.
- 	browser model showFirstTopic.
- 	
- 	(FileDirectory default fileExists: 'balloon.png') ifFalse: [^ self].
- 	
- 	balloon := (Form fromFileNamed: 'balloon.png') asMorph.
- 	browser addMorphFront: balloon.
- 	balloon layoutFrame: (LayoutFrame
- 		fractions: (0 at 1 corner: 0 at 1)
- 		offsets: (balloon width // 1.7 negated @ (balloon height * 0.9) negated corner: 0 at 0)).!

Item was added:
+ ----- Method: ReleaseBuilder class>>openWelcomeWorkspacesWith: (in category 'scripts - support') -----
+ openWelcomeWorkspacesWith: balloonForm
+ 
+ 	| t browser balloon |
+ 	t := HelpTopic title: 'Welcome to Squeak' readOnlyContents: 'Please choose a topic from the left sidebare.'.
+ 
+ 	t subtopics
+ 		add: (SqueakHelp asHelpTopic subtopics detect: [:ea | ea key = #introduction]);
+ 		add: SqueakLicenseHelp asHelpTopic;
+ 		add: (SqueakProjectHelp asHelpTopic subtopics detect: [:ea | ea key = #squeakUserInterface]);
+ 		add: (SqueakProjectHelp asHelpTopic subtopics detect: [:ea | ea key = #workingWithSqueak]);
+ 		add: SqueakReleaseNotes asHelpTopic.
+ 	
+ 	browser := HelpBrowser openOn: t.
+ 	browser extent: browser world extent * 0.6.
+ 	browser center: browser world center.
+ 	browser model showFirstTopic.
+ 	
+ 	balloonForm ifNil: [^ self].
+ 	balloon := balloonForm asMorph.
+ 	browser addMorphFront: balloon.
+ 	balloon layoutFrame: (LayoutFrame
+ 		fractions: (0 at 1 corner: 0 at 1)
+ 		offsets: (balloon width // 1.7 negated @ (balloon height * 0.9) negated corner: 0 at 0)).!

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."
  	"ReleaseBuilder prepareNewBuild"
  	
+ 	| balloon |
+ 	
  	self
  		checkCurrentProjects;
  		clearCaches;
  		configureTools;
  		setPreferences;
  		configureDesktop.
+ 	
+ 	balloon := self getBalloonForm. "Get now because later the file might be missing."
- 		
  	DeferredTask := [
+ 		self openWelcomeWorkspacesWith: balloon.
+ 		PreferenceWizardMorph open].
- 		self openWelcomeWorkspaces.
- 		PreferenceWizardMorph new openInWorld].
  	
  	"If you save-and-quit the image after calling #prepareEnvironment, ensure that the next image startup will be fast."
  	Project current world doOneCycle.!

Item was changed:
  ----- Method: ReleaseBuilder class>>saveAsNewRelease (in category 'saving') -----
  saveAsNewRelease
  	"Use this to create a new release image to be used in the automated release artifact building process on http://www.github.com/squeak-smalltalk/squeak-app."
  
  	| fileName |
  	self setNewSystemVersion: self versionString.
+ 	self assert: self versionString = SystemVersion current version.
  	
  	fileName := ('squeak-{1}.{2}{3}' format: {
  		SystemVersion current majorVersionNumber.
  		SystemVersion current minorVersionNumber.
  		self releaseLocally ifTrue: ['-offline'] ifFalse: ['']}).
  	Smalltalk saveAs: fileName.
  
  	"Update the image state."
  	self
  		prepareSourceCode;
  		prepareEnvironment;
  		switchToNewRepository: self releaseRepository;
  		addAdditionalRepositories.
  	
  	Smalltalk condenseChanges.
  	Smalltalk snapshot: true "Important!!" andQuit: true.!

Item was changed:
  ----- Method: ReleaseBuilder class>>setNewSystemVersion: (in category 'manual') -----
  setNewSystemVersion: version
  
  	self class
  		compile: (self initializeTemplate format: {version})
  		classified: 'class initialization'.
  
  	self initialize.
+ 	self assert: (SystemVersion current version beginsWith: self versionString).
- 	self assert: self versionString = SystemVersion current version.
  	
  	SystemVersion current isRelease ifFalse: [
  		self inform: ('You just changed the system version to {1}.\Please upload the changed ''ReleaseBuilder'' package to\\   {2}\\so that this version change will be official.' translated withCRs format: {SystemVersion current version. self buildRepository description})].!



More information about the Packages mailing list