<body><div id="__MailbirdStyleContent" style="font-size: 12pt;font-family: calibri;color: #000000">
Hmm... it does not seem right to add such a side-effect into "<span style="font-family: tahoma, verdana;font-size: 13px;line-height: 19.5px">tryInvokeMetaMenu". The actual issue is that CTRL+RED never reaches the image but is transformed to CTRL+YELLOW in the VM, which is related to single-button-mouse support.</span><div><br></div><div><span style="font-family: tahoma, verdana;font-size: 13px;line-height: 19.5px">At the moment, there is no way to make a morph react to CTRL+RED(drag) accordingly. :-(</span></div><div><span style="font-family: tahoma, verdana;font-size: 13px;line-height: 19.5px"><br></span></div><div><span style="font-family: tahoma, verdana;font-size: 13px;line-height: 19.5px">Best,</span></div><div><span style="font-family: tahoma, verdana;font-size: 13px;line-height: 19.5px">Marcel</span></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;">
<p style="color: #AAAAAA; margin-top: 10px;">Am 10.05.2018 15:49:09 schrieb Stéphane Rollandin <lecteur@zogotounga.net>:</p>Currently, it is not straightforward to define a ctrl+drag behavior for <br>a morph when preference cmdGesturesEnabled is true (the case by <br>default), because mouseDown when the control key is pressed opens a menu.<br><br>I did implement this for muO though.<br><br>In 6.0, it is very easy to do; we just need to add a line in the <br>following method:<br><br>-----------------------<br><br>PasteUpMorph>>tryInvokeMetaMenu: anEvent<br><br> | innerMost target |<br> Preferences cmdGesturesEnabled ifFalse: [^ self].<br> Preferences eToyFriendly ifTrue: [^ self].<br> <br> innerMost := (self morphsAt: anEvent position unlocked: true) first.<br><br> innerMost honorsCtrlMetaMenu ifFalse: [^ self]. "<===></===><br> <br> "Traverse the owner chain if some morph does not want to show its meta <br>menu."<br> target := innerMost.<br> [target isNil or: [target wantsMetaMenu]] whileFalse: [target := target <br>owner].<br> target ifNil: [^ self].<br> <br> target invokeMetaMenu: anEvent.<br> anEvent ignore.<br><br>------------------------<br><br>... with Morph>>#honorsCtrlMetaMenu returning true (so the current <br>behavior does not change), overriden to false by any morph wanting to <br>implement a ctrl+drag behavior.<br><br><br>Stef<br><br>
</blockquote>
</div></body>