Marcel Taeumel uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-ct.739.mcz
==================== Summary ====================
Name: Monticello-ct.739 Author: ct Time: 10 March 2021, 6:55:01.889559 pm UUID: aec2f89c-cf99-ea47-91f4-4cdf2ebd5bb9 Ancestors: Monticello-mt.736
Tweaks 'add to current change set' command to create a changeset from all (non-ignored) items in an operations browser.
Also hides the 'browse full' command from the menu if not any item is selected since it does not have any function in this case.
=============== Diff against Monticello-mt.736 ===============
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:#( - ('browse full (b)' browseMethodFull) ('fileOut (o)' fileOutMessage))]] ifNotNil: [ aMenu addList:#( ('browse full (b)' browseMethodFull) ('browse hierarchy (h)' browseClassHierarchy) ('browse protocol (p)' browseFullProtocol) - ('fileOut (o)' fileOutMessage) ('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 added: + ----- Method: MCOperationsBrowser>>adoptMessageInCurrentChangeset (in category 'menus') ----- + adoptMessageInCurrentChangeset + + selection ifNotNil: [^ super adoptMessageInCurrentChangeset]. + + items do: [:item | + self forItem: item setClassAndSelectorIn: [:class :selector | + ChangeSet current adoptSelector: selector forClass: class]]. + self changed: #annotations.!
Item was added: + ----- Method: MCOperationsBrowser>>forItem:setClassAndSelectorIn: (in category 'private') ----- + forItem: item setClassAndSelectorIn: classSelectorBlock + + item definition isMethodDefinition ifFalse: [self halt]. + ^ classSelectorBlock + value: item definition actualClass + value: item definition selector!
Item was changed: ----- Method: MCOperationsBrowser>>methodListMenu: (in category 'menus') ----- methodListMenu: aMenu + selection + ifNil: [items ifNotEmpty: [ + aMenu addList: #( + ('add to current change set' adoptMessageInCurrentChangeset))]] + ifNotNil: [aMenu addList: #( - selection ifNotNil: - [aMenu addList: #( ('install' installSelection) ('revert (x)' revertSelection) ('browse origin' browseSelectionOrigin) -)]. self unchangedMethods ifNotEmpty: [aMenu addList: #( ('revert unchanged methods...' revertUnchangedMethods) ('filter out unchanged methods...' filterOutUnchangedMethods) -)]. super methodListMenu: aMenu. ^ aMenu!
Item was added: + ----- Method: MCSaveVersionDialog>>adoptMessageInCurrentChangeset (in category 'menus') ----- + adoptMessageInCurrentChangeset + + selection ifNotNil: [^ super adoptMessageInCurrentChangeset]. + + (items copyWithoutAll: ignore) do: [:item | + self forItem: item setClassAndSelectorIn: [:class :selector | + ChangeSet current adoptSelector: selector forClass: class]]. + self changed: #annotations.!