[etoys-dev] Etoys: ReleaseBuilder-bf.7.mcz

[commits at source.squeak.org]

Bert Freudenberg uploaded a new version of ReleaseBuilder to project Etoys:
http://source.squeak.org/etoys/ReleaseBuilder-bf.7.mcz

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

Name: ReleaseBuilder-bf.7
Author: bf
Time: 12 September 2010, 1:37:36 pm
UUID: 7c6d7175-023e-4709-9281-396882ecfdc1
Ancestors: ReleaseBuilder-bf.6

Update system version when building release

=============== Diff against ReleaseBuilder-bf.6 ===============

Item was changed:
  ----- Method: ReleaseBuilderSqueakland>>installVersionInfo (in category 'utilities') -----
  installVersionInfo
  	"ReleaseBuilderSqueakland new installVersionInfo"
  
+ 	| newVersion |
+ "	highestUpdate := SystemVersion current highestUpdate.
- 	| highestUpdate newVersion |
- 	highestUpdate _ SystemVersion current highestUpdate.
  	(self confirm: 'Reset highest update (' , highestUpdate printString , ')?')
  		ifTrue: [SystemVersion current highestUpdate: 0].
+ "
+ 	newVersion := FillInTheBlank request: 'New version designation:' initialAnswer: SystemVersion current version.
- 
- 	newVersion _ FillInTheBlank request: 'New version designation:' initialAnswer: 'Squeakland 3.8.' , highestUpdate printString. 
  	SystemVersion newVersion: newVersion.
+ 	self inform: 'System version is now:', String cr, SystemVersion current asString
- 	(self confirm: self version , '
- Is this the correct version designation?
- If not, choose no, and fix it.') ifFalse: [^ self].
  !

Item was changed:
  ----- Method: ReleaseBuilderSqueakland>>prepareReleaseImage (in category 'squeakland') -----
  prepareReleaseImage
  	"ReleaseBuilderSqueakland new prepareReleaseImage"
  	self testPrerequired.
  	self updateGettext.
  	self cleanupForSqueakland.
  	self setupUpdateStreamForSqueakland.
  	self setupServerDirectoryForSqueakland.
  	self buildInitialScreen.
+ 	self installVersionInfo.!
- !