[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
|