The Inbox: Monticello-ct.819.mcz

Christoph Thiede uploaded a new version of Monticello to project The Inbox:
http://source.squeak.org/inbox/Monticello-ct.819.mcz

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

Name: Monticello-ct.819
Author: ct
Time: 19 June 2026, 4:52:43.873068 pm
UUID: a73a46bb-1318-4535-9a75-152bfc1378c5
Ancestors: Monticello-mt.817

Makes feature freeze/code freeze warnings when saving a new version to the trunk cancellable. (UIManager>>#confirm:trueChoice:falseChoice: displays a third undocumented cancel button. We really need better API for this some day ... :))

=============== Diff against Monticello-mt.817 ===============

Item was changed:
  ----- Method: MCWorkingCopyBrowser>>saveVersion (in category 'actions') -----
  saveVersion
  	| repo version |
  	self canSave ifFalse: [^self].
  	repo := self repository.
  	
  	repo cacheAllFileNamesDuring: [
  		self class checkForNewerVersionsBeforeSave ==> [self checkForNewerVersions]
  			ifFalse: [^self].
  		
  		(repo == MCRepository trunk and: [SystemVersion current isFeatureFreeze])
+ 			ifTrue: [(Project uiManager chooseOptionFrom: {'Continue' translated. 'Cancel' translated} values: #(true false) lines: #() title: 'FEATURE FREEZE. A new release is being prepared.\\Please do only commit changes that fix (critical) bugs. Avoid adding new features. Reach out to the release manager or on via our mailing list if you have more questions.' translated withCRs) = true
+ 				ifFalse: [^self]].
- 			ifTrue: [self inform: 'FEATURE FREEZE. A new release is being prepared.\\Please do only commit changes that fix (critical) bugs. Avoid adding new features. Reach out to the release manager or on via our mailing list if you have more questions.' translated withCRs].
  		(repo == MCRepository trunk and: [SystemVersion current isCodeFreeze])
+ 			ifTrue: [(Project uiManager chooseOptionFrom: {'Continue' translated. 'Cancel' translated} values: #(true false) lines: #() title: 'CODE FREEZE. The new release is almost ready. Yay!!\\Please do only commit URGENT fixes, if any. Reach out to the release manager or on via our mailing list if you have more questions.' translated withCRs) = true
+ 				ifFalse: [^self]].
- 			ifTrue: [self inform: 'CODE FREEZE. The new release is almost ready. Yay!!\\Please do only commit URGENT fixes, if any. Reach out to the release manager or on via our mailing list if you have more questions.' translated withCRs].
  		
  		version := self withRepository: repo do: [workingCopy newVersion]].
  	version ifNil: [^ self].
  	
  	(MCVersionInspector new version: version) show.
  	Cursor wait showWhile: [repo storeVersion: version].
  	MCCacheRepository default cacheAllFileNamesDuring: 
  		[repo cacheAllFileNamesDuring: 
  			[version allAvailableDependenciesDo:
  				[:dep |
  				(repo includesVersionNamed: dep info name)
  					ifFalse: [repo storeVersion: dep]]]].!

Squeak-dev mailing list -- [email protected]
To unsubscribe send an email to [email protected]