Eliot Miranda uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-eem.803.mcz
==================== Summary ====================
Name: Monticello-eem.803 Author: eem Time: 24 October 2023, 3:23:48.418415 pm UUID: 46cf509a-7643-40fa-ab24-7c7b4cbe9796 Ancestors: Monticello-tpr.802
Finally understand what was wrong with my fileOut theirs scheme. In normal snapshot browsers "fileOut theirs" means "fileOutDefinition". But in a save dialog "fileOut theirs" means "fileOutInverse".
=============== Diff against Monticello-tpr.802 ===============
Item was changed: ----- Method: MCCodeTool>>methodListMenu: (in category 'menus') ----- methodListMenu: aMenu "Build the menu for the selected method, if any." self selectedMessageName ifNil: [items notEmpty ifTrue: [aMenu addList:#( ('fileOut ours (o)' fileOutMessage) + ('fileOut theirs' fileOutDefinition))]] - ('fileOut theirs' fileOutInverse))]] ifNotNil: [ aMenu addList:#( ('browse full (b)' browseMethodFull) ('browse hierarchy (h)' browseClassHierarchy) ('browse protocol (p)' browseFullProtocol) - ('fileOut ours (o)' fileOutMessage) ('fileOut theirs' fileOutDefinition) ('printOut' printOutMessage) ('copy selector (c)' copySelector) ('copy reference (C)' copyReference)). aMenu addList: #( - ('browse senders (n)' browseSendersOfMessages) ('browse implementors (m)' browseMessages) ('inheritance (i)' methodHierarchy) ('versions (v)' browseVersions) ('change sets with this method' findMethodInChangeSets) " ('x revert to previous version' revertToPreviousVersion)" ('remove from current change set' removeFromCurrentChanges) " ('x revert & remove from changes' revertAndForget)" ('add to current change set' adoptMessageInCurrentChangeset) " ('x copy up or copy down...' copyUpOrCopyDown)" " ('x remove method (x)' removeMessage)" "-" ). ]. " aMenu addList: #( ('x inst var refs...' browseInstVarRefs) ('x inst var defs...' browseInstVarDefs) ('x class var refs...' browseClassVarRefs) ('x class variables' browseClassVariables) ('x class refs (N)' browseClassRefs) ). " ^ aMenu !
Item was changed: ----- Method: MCSaveVersionDialog>>methodListMenu: (in category 'menus') ----- methodListMenu: aMenu super methodListMenu: aMenu. + "In save dialogs fileOut theirs means file out the inverse" + aMenu items do: + [:item| + item selector == #fileOutDefinition ifTrue: + [item selector: #fileOutInverse]]. aMenu addList:#(- ('ignore (I)' ignoreSelection 'Toggle inclusion of this change when saving.') ('refresh (e)' refresh 'Refresh the list of changes to this package.')). ^aMenu!