David T. Lewis uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-dtl.685.mcz
==================== Summary ====================
Name: Monticello-dtl.685 Author: dtl Time: 5 November 2018, 10:52:58.748205 pm UUID: b31c1c5b-d61a-4810-8f97-5fdcaf062dc8 Ancestors: Monticello-eem.684
MCVersionInspector has an 'Adopt' button to allow the selected version to be added to the parent or parents of a working version. Provide a 'Reparent' button to allow a selected version to become the sole parent of a working version. Adjust defaultExtent to accomodate the additional button.
Motivated by the exercise of preparing to copy Chronology-Core versions from one repository into equivalent Chronology-Core.UTC versions in another repository (possibly trunk). In this scenario, it is helpful to be able to reparent a newly loaded Chronology-Core version from one repository to be the child of the last saved Chronology-Core.UTC version in another. The '.UTC' suffix in this case is intended to branch those versions from the trunk update stream, allowing later merge to trunk with branch history preserved.
=============== Diff against Monticello-eem.684 ===============
Item was changed: ----- Method: MCRepositoryInspector>>defaultExtent (in category 'morphic ui') ----- defaultExtent + ^600@300! - ^450@300!
Item was added: + ----- Method: MCVersion>>reparent (in category 'actions') ----- + reparent + "Let aNode be the sole parent of this version" + self workingCopy reparent: self!
Item was changed: ----- Method: MCVersionInspector>>buttonSpecs (in category 'morphic ui') ----- buttonSpecs + ^#( + ('Refresh' refresh 'refresh the version-list') - ^ #(('Refresh' refresh 'refresh the version-list') (Browse browse 'Browse this version' hasVersion) + (History history 'Browse the history of this version' hasVersion) + (Changes changes 'Browse the changes this version would make to the image' hasVersion) + (Load load 'Load this version into the image' hasVersion) + (Merge merge 'Merge this version into the image' hasVersion) + (Adopt adopt 'Adopt this version as an ancestor of your working copy' hasVersion) + (Reparent reparent 'Adopt this version as the sole ancestor of your working copy' hasVersion) + (Copy save 'Copy this version to another repository' hasVersion) + (Diff diff 'Create an equivalent version based on an earlier release' hasVersion) + )! - (History history 'Browse the history of this version' hasVersion) - (Changes changes 'Browse the changes this version would make to the - image' hasVersion) - (Load load 'Load this version into the image' hasVersion) - (Merge merge 'Merge this version into the image' hasVersion) - (Adopt adopt 'Adopt this version as an ancestor of your working copy' - hasVersion) - (Copy save 'Copy this version to another repository' hasVersion) - (Diff diff 'Create an equivalent version based on an earlier release' - hasVersion))!
Item was added: + ----- Method: MCVersionInspector>>reparent (in category 'accessing') ----- + reparent + (self confirm:'Adopt ',self version info name, ' as the sole ancestor of your working copy?') + ifTrue: [self version reparent]!
Item was added: + ----- Method: MCWorkingAncestry>>reparent: (in category 'as yet unclassified') ----- + reparent: aNode + "Let aNode be the sole parent of this version" + ancestors := Array with: aNode + !
Item was added: + ----- Method: MCWorkingCopy>>reparent: (in category 'operations') ----- + reparent: aVersion + "Let aNode be the sole parent of this version" + ancestry reparent: aVersion info. + self changed.!