Chris Muller uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-cmm.807.mcz
==================== Summary ====================
Name: Monticello-cmm.807 Author: cmm Time: 19 February 2024, 1:00:29.476937 am UUID: ea4dc7e6-5232-4e81-88f5-796f49140bf7 Ancestors: Monticello-eem.806
Fixed the confirmation message associated with the 'copy image versions here' function on the Repository menu.
=============== Diff against Monticello-eem.806 ===============
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 newerImageVersions do: [ : each | self storeVersion: each ] ]! - [ 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: MCRepository>>newerImageVersions (in category 'private') ----- + newerImageVersions + ^ Array streamContents: + [ : stream | 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 | stream nextPut: ver ] ] ] ] + ifNone: [ "Image specifies no version to copy." ] ] ]!
Item was changed: ----- Method: MCWorkingCopyBrowser>>copyImageVersionsSafely (in category 'actions') ----- copyImageVersionsSafely + self repository newerImageVersions + ifEmpty: [ Project current uiManager inform: 'Repository up to date.' ] + ifNotEmpty: + [ : imageVersions | | msg | + msg := String streamContents: + [ : stream | imageVersions do: + [ : each | stream cr ; + nextPutAll: each info name ; nextPut: $,]. + stream cr ; + cr ; + nextPutAll: ' will be copied to <b>{1}</b>?' ]. + (Project current uiManager + confirm: (msg translated format: {self repository description}) asTextFromHtml + title: 'Copy Versions' translated) ifFalse: [ ^ self ]. + self copyImageVersions ]! - (Project uiManager confirm: ('Do you really want to copy the loaded version of each of <b>{1} packages</b> to <b>{2}</b>?' translated asTextFromHtml format: {MCWorkingCopy allManagers size. self repository description}) title: 'Copy Image Versions' translated) ifFalse: [^ self]. - self copyImageVersions.!
packages@lists.squeakfoundation.org