<div id="__MailbirdStyleContent" style="font-size: 10pt;font-family: Arial;color: #000000;text-align: left" dir="ltr">
Hi Christoph,<div><br></div><div>how can a selection ever be "nil" when using the context menu in a save dialog or patch browser? This only works for a specific combination of system preferences, I suppose :-) </div><div><br></div><div>[x] Always show v scroll bar</div><div>[ ] Scroll bars without menu button</div><div><br></div><div>Or just</div><div><br></div><div>[ ] Menu request updates list/tree selection</div><div><br></div><div>Hmmm...</div><div><br></div><div><span style="font-size: 10pt">Best,</span><br></div><div>Marcel</div><div class="mb_sig"></div>
<blockquote class="history_container" type="cite" style="border-left-style: solid;border-width: 1px;margin-top: 20px;margin-left: 0px;padding-left: 10px;min-width: 500px">
<p style="color: #AAAAAA; margin-top: 10px;">Am 10.03.2021 18:55:14 schrieb commits@source.squeak.org <commits@source.squeak.org>:</p><div style="font-family:Arial,Helvetica,sans-serif">A new version of Monticello was added to project The Inbox:<br>http://source.squeak.org/inbox/Monticello-ct.739.mcz<br><br>==================== Summary ====================<br><br>Name: Monticello-ct.739<br>Author: ct<br>Time: 10 March 2021, 6:55:01.889559 pm<br>UUID: aec2f89c-cf99-ea47-91f4-4cdf2ebd5bb9<br>Ancestors: Monticello-mt.736<br><br>Tweaks 'add to current change set' command to create a changeset from all (non-ignored) items in an operations browser.<br><br>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.<br><br>=============== Diff against Monticello-mt.736 ===============<br><br>Item was changed:<br> ----- Method: MCCodeTool>>methodListMenu: (in category 'menus') -----<br> methodListMenu: aMenu<br> "Build the menu for the selected method, if any."<br> <br> self selectedMessageName<br> ifNil: [items notEmpty ifTrue:<br> [aMenu addList:#(<br>- ('browse full (b)' browseMethodFull)<br> ('fileOut (o)' fileOutMessage))]]<br> ifNotNil: [<br> aMenu addList:#(<br> ('browse full (b)' browseMethodFull)<br> ('browse hierarchy (h)' browseClassHierarchy)<br> ('browse protocol (p)' browseFullProtocol)<br> -<br> ('fileOut (o)' fileOutMessage)<br> ('printOut' printOutMessage)<br> ('copy selector (c)' copySelector)<br> ('copy reference (C)' copyReference)).<br> aMenu addList: #(<br> -<br> ('browse senders (n)' browseSendersOfMessages)<br> ('browse implementors (m)' browseMessages)<br> ('inheritance (i)' methodHierarchy)<br> ('versions (v)' browseVersions)<br> ('change sets with this method' findMethodInChangeSets)<br> " ('x revert to previous version' revertToPreviousVersion)"<br> ('remove from current change set' removeFromCurrentChanges)<br> " ('x revert & remove from changes' revertAndForget)"<br> ('add to current change set' adoptMessageInCurrentChangeset)<br> " ('x copy up or copy down...' copyUpOrCopyDown)"<br> " ('x remove method (x)' removeMessage)"<br> "-"<br> ).<br> ].<br> " aMenu addList: #(<br> ('x inst var refs...' browseInstVarRefs)<br> ('x inst var defs...' browseInstVarDefs)<br> ('x class var refs...' browseClassVarRefs)<br> ('x class variables' browseClassVariables)<br> ('x class refs (N)' browseClassRefs)<br> ).<br> "<br> ^ aMenu<br> !<br><br>Item was added:<br>+ ----- Method: MCOperationsBrowser>>adoptMessageInCurrentChangeset (in category 'menus') -----<br>+ adoptMessageInCurrentChangeset<br>+ <br>+ selection ifNotNil: [^ super adoptMessageInCurrentChangeset].<br>+ <br>+ items do: [:item |<br>+ self forItem: item setClassAndSelectorIn: [:class :selector |<br>+ ChangeSet current adoptSelector: selector forClass: class]].<br>+ self changed: #annotations.!<br><br>Item was added:<br>+ ----- Method: MCOperationsBrowser>>forItem:setClassAndSelectorIn: (in category 'private') -----<br>+ forItem: item setClassAndSelectorIn: classSelectorBlock<br>+ <br>+ item definition isMethodDefinition ifFalse: [self halt].<br>+ ^ classSelectorBlock<br>+ value: item definition actualClass<br>+ value: item definition selector!<br><br>Item was changed:<br> ----- Method: MCOperationsBrowser>>methodListMenu: (in category 'menus') -----<br> methodListMenu: aMenu<br>+ selection<br>+ ifNil: [items ifNotEmpty: [<br>+ aMenu addList: #(<br>+ ('add to current change set' adoptMessageInCurrentChangeset))]]<br>+ ifNotNil: [aMenu addList: #(<br>- selection ifNotNil:<br>- [aMenu addList: #(<br> ('install' installSelection)<br> ('revert (x)' revertSelection)<br> ('browse origin' browseSelectionOrigin) <br> -)].<br> self unchangedMethods ifNotEmpty:<br> [aMenu addList: #(<br> ('revert unchanged methods...' revertUnchangedMethods) <br> ('filter out unchanged methods...' filterOutUnchangedMethods) <br> -)].<br> super methodListMenu: aMenu.<br> ^ aMenu!<br><br>Item was added:<br>+ ----- Method: MCSaveVersionDialog>>adoptMessageInCurrentChangeset (in category 'menus') -----<br>+ adoptMessageInCurrentChangeset<br>+ <br>+ selection ifNotNil: [^ super adoptMessageInCurrentChangeset].<br>+ <br>+ (items copyWithoutAll: ignore) do: [:item |<br>+ self forItem: item setClassAndSelectorIn: [:class :selector |<br>+ ChangeSet current adoptSelector: selector forClass: class]].<br>+ self changed: #annotations.!<br><br><br></div></blockquote></div>