<div dir="ltr">Hi David, Hi All,<br><div class="gmail_quote"><div dir="ltr">On Mon, Nov 5, 2018 at 7:53 PM <<a href="mailto:commits@source.squeak.org">commits@source.squeak.org</a>> wrote:<br></div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">David T. Lewis uploaded a new version of Monticello to project The Inbox:<br>
<a href="http://source.squeak.org/inbox/Monticello-dtl.685.mcz" rel="noreferrer" target="_blank">http://source.squeak.org/inbox/Monticello-dtl.685.mcz</a><br>
<br>
==================== Summary ====================<br>
<br>
Name: Monticello-dtl.685<br>
Author: dtl<br>
Time: 5 November 2018, 10:52:58.748205 pm<br>
UUID: b31c1c5b-d61a-4810-8f97-5fdcaf062dc8<br>
Ancestors: Monticello-eem.684<br>
<br>
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.<br></blockquote><div><br></div><div>Nice.  It is for someone like Bert to review and accept this but this seems a very useful addition to me!</div><div> </div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<br>
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.<br>
<br>
=============== Diff against Monticello-eem.684 ===============<br>
<br>
Item was changed:<br>
  ----- Method: MCRepositoryInspector>>defaultExtent (in category 'morphic ui') -----<br>
  defaultExtent<br>
+       ^600@300!<br>
-       ^450@300!<br>
<br>
Item was added:<br>
+ ----- Method: MCVersion>>reparent (in category 'actions') -----<br>
+ reparent<br>
+       "Let aNode be the sole parent of this version"<br>
+       self workingCopy reparent: self!<br>
<br>
Item was changed:<br>
  ----- Method: MCVersionInspector>>buttonSpecs (in category 'morphic ui') -----<br>
  buttonSpecs<br>
+       ^#(<br>
+               ('Refresh' refresh 'refresh the version-list')<br>
-        ^ #(('Refresh' refresh 'refresh the version-list')<br>
                (Browse browse 'Browse this version' hasVersion)<br>
+               (History history 'Browse the history of this version' hasVersion)<br>
+               (Changes changes 'Browse the changes this version would make to the image' hasVersion)<br>
+               (Load load 'Load this version into the image' hasVersion)<br>
+               (Merge merge 'Merge this version into the image' hasVersion)<br>
+               (Adopt adopt 'Adopt this version as an ancestor of your working copy' hasVersion)<br>
+               (Reparent reparent 'Adopt this version as the sole ancestor of your working copy' hasVersion)<br>
+               (Copy save 'Copy this version to another repository' hasVersion)<br>
+               (Diff diff 'Create an equivalent version based on an earlier release' hasVersion)<br>
+       )!<br>
-                (History history 'Browse the history of this version' hasVersion)<br>
-                (Changes changes 'Browse the changes this version would make to the<br>
- image' hasVersion)<br>
-                (Load load 'Load this version into the image' hasVersion)<br>
-                (Merge merge 'Merge this version into the image' hasVersion)<br>
-                (Adopt adopt 'Adopt this version as an ancestor of your working copy'<br>
- hasVersion)<br>
-                (Copy save 'Copy this version to another repository' hasVersion)<br>
-                (Diff diff 'Create an equivalent version based on an earlier release'<br>
- hasVersion))!<br>
<br>
Item was added:<br>
+ ----- Method: MCVersionInspector>>reparent (in category 'accessing') -----<br>
+ reparent<br>
+       (self confirm:'Adopt ',self version info name, ' as the sole ancestor of your working copy?')<br>
+               ifTrue: [self version reparent]!<br>
<br>
Item was added:<br>
+ ----- Method: MCWorkingAncestry>>reparent: (in category 'as yet unclassified') -----<br>
+ reparent: aNode<br>
+       "Let aNode be the sole parent of this version"<br>
+       ancestors := Array with: aNode<br>
+ !<br>
<br>
Item was added:<br>
+ ----- Method: MCWorkingCopy>>reparent: (in category 'operations') -----<br>
+ reparent: aVersion<br>
+       "Let aNode be the sole parent of this version"<br>
+       ancestry reparent: aVersion info.<br>
+       self changed.!<br>
<br>
<br>
</blockquote></div><br clear="all"><div><br></div>-- <br><div dir="ltr" class="gmail_signature" data-smartmail="gmail_signature"><div dir="ltr"><div><span style="font-size:small;border-collapse:separate"><div>_,,,^..^,,,_<br></div><div>best, Eliot</div></span></div></div></div></div>