[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