The Trunk: Monticello-dtl.686.mcz

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