David T. Lewis uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-dtl.686.mcz
==================== Summary ====================
Name: Monticello-dtl.686 Author: dtl Time: 9 November 2018, 7:04:36.309744 pm UUID: fe585cb5-06ad-4fa6-89d8-4163b24c9a43 Ancestors: Monticello-eem.685, Monticello-dtl.685
Merge Monticello-dtl.685 from inbox with Monticello-eem.685 in trunk.
=============== Diff against Monticello-eem.685 ===============
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.!