YO!!  Two versions for one feature?  Before I could even get my
feedback submitted?

Somebody got a itchy commit finger there!    :(
On Fri, Nov 9, 2018 at 6:05 PM <commits at source.squeak.org> wrote:
>
> 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 at 300!
> -       ^450 at 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.!
>
>