Eliot Miranda uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-eem.790.mcz
==================== Summary ====================
Name: Monticello-eem.790 Author: eem Time: 5 June 2023, 11:29:03.938098 am UUID: 4179c240-0619-4930-9ec6-e3c04bf2a42f Ancestors: Monticello-ct.789
Get "fileOut theirs" to work properly.
=============== Diff against Monticello-ct.789 ===============
Item was added: + ----- Method: MCCodeTool>>fileOutInverse (in category 'menus') ----- + fileOutInverse + "Put a description of the inverses of the selected definition(s) on a file." + + | index fileName itemsToFileOut | + itemsToFileOut := (index := self selection) ~= 0 + ifTrue: [{items at: index}] + ifFalse: [items select: [:item| self shouldIncludeInFileOut: item]]. + items isEmpty ifTrue: + [^self]. + fileName := UIManager default + saveFilenameRequest: 'File out on which file?' + initialAnswer: (index ~= 0 + ifTrue: [itemsToFileOut first summary] + ifFalse: ['definitions']). + fileName isEmptyOrNil ifTrue: [^self]. + Cursor write showWhile: + [| definitionStream | + definitionStream := WriteStream on: (String new: 1000). + definitionStream header; timeStamp. + itemsToFileOut + do: [:patchOp| | inverseOp | + inverseOp := patchOp inverse. + (inverseOp isRemoval ifTrue: [inverseOp] ifFalse: [inverseOp definition]) fileOutOn: definitionStream] + separatedBy: [definitionStream cr; cr]. + FileStream writeSourceCodeFrom: definitionStream baseName: fileName isSt: true useHtml: false]!
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' fileOutInverse))]] - ('fileOut theirs' fileOutDefinition))]] 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 !
packages@lists.squeakfoundation.org