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))!