Hi David, Hi All,
On Mon, Nov 5, 2018 at 7:53 PM <commits at 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 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.!
>
>
>

-- 
_,,,^..^,,,_
best, Eliot
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20181105/675bcd0b/attachment.html>