Marcel Taeumel uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-mt.782.mcz

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

Name: Monticello-mt.782
Author: mt
Time: 18 July 2022, 2:46:26.342663 pm
UUID: 8bc7f81d-4c0e-b341-9b1f-e31a0d96a948
Ancestors: Monticello-mt.781

Guard the #copyImageVersions feature to avoid accidental spamming.

=============== Diff against Monticello-mt.781 ===============

Item was changed:
  ----- Method: MCRepository>>copyImageVersions (in category 'versions') -----
  copyImageVersions
  	"For each package contained in the receiver, copy the version of that package which is currently loaded in this image.  If no version of a package is loaded in the image, nothing is copied for that package."
+ 	MCRepository trunk = self ifTrue: [^ self error: 'Must not copy over to Trunk repository' translated].
+ 	MCRepository inbox = self ifTrue: [^ self error: 'Must not copy over to Inbox repository' translated].
+ 	MCRepository treated = self ifTrue: [^ self error: 'Must not copy over to Treated repository' translated].
  	self cacheAllFileNamesDuring:
  		[ self allPackageNames do:
  			[ : eachPkgName | MCWorkingCopy allManagers
  				detect: [ : each | each packageName = eachPkgName ]
  				ifFound:
  					[ : loaded | loaded ancestors do:
  						[ : infoToCopy | (self includesVersionNamed: infoToCopy versionName) ifFalse:
  							[ (MCRepositoryGroup default versionWithInfo: infoToCopy)
  								ifNil: [ Warning signal: infoToCopy name , ' not found in RepositoryGroup default.' ]
  								ifNotNil:
  									[ : ver | self storeVersion: ver ] ] ] ]
  				ifNone: [ "Image specifies no version to copy." ] ] ]!

Item was added:
+ ----- Method: MCWorkingCopyBrowser>>copyImageVersionsSafely (in category 'actions') -----
+ copyImageVersionsSafely
+ 	(Project current uiManager confirm: ('Do you really want to copy the loaded version of each of <b>{1} packages</b> to <b>{2}</b>?' translated format: {MCWorkingCopy allManagers size. self repository description}) asTextFromHtml title: 'Copy Image Versions' translated) ifFalse: [^ self].
+ 	self copyImageVersions.!

Item was changed:
  ----- Method: MCWorkingCopyBrowser>>repositoryListMenu: (in category 'morphic ui') -----
  repositoryListMenu: aMenu
  	"first add repository-specific commands"
  	self repository ifNotNil:
  		[ self
  			fillMenu: aMenu
  			fromSpecs:
  				#(('open repository' #openRepository)
  				('edit repository info' #editRepository)
  				('add to package...' #addRepositoryToPackage)
  				('remove repository' #removeRepository)
  				('demote to bottom' #demoteRepository)
+ 				('copy image versions here' #copyImageVersionsSafely)).
- 				('copy image versions here' #copyImageVersions)).
  		aMenu
  			add:
  				(self repository alwaysStoreDiffs
  					ifTrue: ['store full versions']
  					ifFalse: ['store diffs'])
  				target: self
  				selector: #toggleDiffs ;
  			addLine ].
  	"then the non-specific commands"
  	^self fillMenu: aMenu fromSpecs:
  		#(	('load repositories' #loadRepositories)
  		 	('save repositories' #saveRepositories)
  			('flush cached versions' #flushCachedVersions))!