Hi David, Hi All, On Mon, Nov 5, 2018 at 7:53 PM commits@source.squeak.org wrote:
David T. Lewis uploaded a new version of Monticello to project The Inbox: http://source.squeak.org/inbox/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.
Nice. It is for someone like Bert to review and accept this but this seems a very useful addition to me!
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.!