<html>

<head>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

</head>

<body>

<style type="text/css" style="display:none;"><!-- P {margin-top:0;margin-bottom:0;} --></style>

<div id="divtagdefaultwrapper" style="font-size:12pt;color:#000000;font-family:Calibri,Helvetica,sans-serif;" dir="ltr">

<p>Hi Marcel,</p>

<p><br>

</p>

<p>I use this every day, it's pretty simple and very helpful: Just press Escape to open the context menu when no item is selected. :D</p>

<p><br>

</p>

<p>However, it might be helpful if you had a "mouse way" to do the same thing ...</p>

<p><br>

</p>

<p>Best,</p>

<p>Christoph</p>

<div id="Signature">

<div id="divtagdefaultwrapper" dir="ltr" style="font-size: 12pt; color: rgb(0, 0, 0); font-family: Calibri, Helvetica, sans-serif, EmojiFont, "Apple Color Emoji", "Segoe UI Emoji", NotoColorEmoji, "Segoe UI Symbol", "Android Emoji", EmojiSymbols;">

<div name="divtagdefaultwrapper" style="font-family:Calibri,Arial,Helvetica,sans-serif; font-size:; margin:0">

<div><font size="2" color="#808080"></font></div>

</div>

</div>

</div>

</div>

<hr style="display:inline-block;width:98%" tabindex="-1">

<div id="divRplyFwdMsg" dir="ltr"><font face="Calibri, sans-serif" style="font-size:11pt" color="#000000"><b>Von:</b> Squeak-dev <squeak-dev-bounces@lists.squeakfoundation.org> im Auftrag von Taeumel, Marcel<br>

<b>Gesendet:</b> Donnerstag, 11. März 2021 14:23:11<br>

<b>An:</b> squeak-dev<br>

<b>Betreff:</b> Re: [squeak-dev] The Inbox: Monticello-ct.739.mcz</font>

<div> </div>

</div>

<div>

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

</div>

</body>

</html>