The Trunk: ReleaseBuilder-mt.162.mcz

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@1 corner: 0@1)
- offsets: (balloon width // 1.7 negated @ (balloon height * 0.9) negated corner: 0@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@1 corner: 0@1)
+ offsets: (balloon width // 1.7 negated @ (balloon height * 0.9) negated corner: 0@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})].!