The Trunk: ReleaseBuilder-mt.160.mcz

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

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

Name: ReleaseBuilder-mt.160
Author: mt
Time: 17 August 2016, 2:28:08.414125 pm
UUID: ee18c398-7310-7b43-9bcd-484b07e66650
Ancestors: ReleaseBuilder-mt.159

Minor adjustment in welcome workspaces.

=============== Diff against ReleaseBuilder-mt.159 ===============

Item was changed:
  ----- Method: ReleaseBuilder class>>openWelcomeWorkspaces (in category 'scripts - support') -----
  openWelcomeWorkspaces
 
+ | t browser balloon |
- | t b |
  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)).!
- b := HelpBrowser openOn: t.
- b extent: b world extent * 0.6.
- b center: b world center.
- b model showFirstTopic.!