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 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.!