[squeak-dev] The Trunk: ReleaseBuilder-tpr.232.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Apr 19 18:53:21 UTC 2022


tim Rowledge uploaded a new version of ReleaseBuilder to project The Trunk:
http://source.squeak.org/trunk/ReleaseBuilder-tpr.232.mcz

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

Name: ReleaseBuilder-tpr.232
Author: tpr
Time: 19 April 2022, 11:53:20.375162 am
UUID: 700f2fa7-c67b-4142-b4c4-9f461dbadf4a
Ancestors: ReleaseBuilder-ct.231

Use the new ToolBuilder ability to show a list of options - typically a small number, maybe with a cancel button etc - as opposed to an arbitrary list of values. This separates it out from the chooseFrom:... protocol.
Also update "UIManager default" with "Project uiManager"

=============== Diff against ReleaseBuilder-ct.231 ===============

Item was changed:
  ----- Method: ReleaseBuilder class>>doNextStep (in category 'manual - steps') -----
  doNextStep
  	"Use this call to perform the manual steps in the release process."
  	
  	| versionString |
+ 	SystemVersion current isRelease ifTrue:
+ 		[^ self inform: 'This is a release image. Please use a trunk image to prepare the next release' translated].
- 	SystemVersion current isRelease ifTrue: [
- 		^ self inform: 'This is a release image. Please use a trunk image to prepare the next release' translated].
  	
  	versionString := SystemVersion current version.
  	
+ 	SystemVersion current isAlpha ifTrue:
+ 		[^ self step1FeatureFreeze].
+ 	(SystemVersion current isFeatureFreeze and: [SystemVersion current isCodeFreeze not]) ifTrue:
+ 		[^ self step2CodeFreeze].
+ 	SystemVersion current isReleaseCandidate ifTrue:
+ 		["Still code freeze and another RC? Or do the release?"
- 	SystemVersion current isAlpha ifTrue: [^ self step1FeatureFreeze].
- 	(SystemVersion current isFeatureFreeze and: [SystemVersion current isCodeFreeze not]) ifTrue: [^ self step2CodeFreeze].
- 	SystemVersion current isReleaseCandidate ifTrue: [
- 		"Still code freeze and another RC? Or do the release?"
  		(Project uiManager
+ 			chooseOptionFrom: #('Create next release candidate' 'Create next release' 'Do nothing') lines: #(2)"<-- needs simpler dialogue with a proper cancel button"
- 			chooseFrom: #('Create next release candidate' 'Create next release' 'Do nothing') lines: #(2)
  			title: versionString) in: [:answer |
  				answer = 1 ifTrue: [^ self step3NextReleaseCandidate].
  				answer = 2 ifTrue: [^ self step4Release]].
  		^ self].!



More information about the Squeak-dev mailing list