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

commits at source.squeak.org commits at source.squeak.org
Wed Aug 17 12:29:30 UTC 2016


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 at 1 corner: 0 at 1)
+ 		offsets: (balloon width // 1.7 negated @ (balloon height * 0.9) negated corner: 0 at 0)).!
- 	b := HelpBrowser openOn: t.
- 	b extent: b world extent * 0.6.
- 	b center: b world center.
- 	b model showFirstTopic.!



More information about the Packages mailing list