<body><div id="__MailbirdStyleContent" style="font-size: 10pt;font-family: Arial;color: #000000">
<div>Hi Christoph.</div><div><br></div>Addressed in Morphic-mt.1625. <div><br></div><div>Note that "h owner" is dangerous because that can be anything you are not in control in this piece of code. Also, the focus holder was correct for this scenario. That's why I suspected the bug to be somewhere else and started debugging. Took me about 3 hours. -.-" It was related to mouse-over dispatching, which affects mouse-enter and mouse-leave events, which trigger the halo.<div><br></div><div>Best,</div><div>Marcel</div></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 17.02.2020 17:11:38 schrieb commits@source.squeak.org <commits@source.squeak.org>:</p><div style="font-family:Arial,Helvetica,sans-serif">Christoph Thiede uploaded a new version of Morphic to project The Inbox:<br>http://source.squeak.org/inbox/Morphic-ct.1625.mcz<br><br>==================== Summary ====================<br><br>Name: Morphic-ct.1625<br>Author: ct<br>Time: 17 February 2020, 5:11:24.527432 pm<br>UUID: e4c9f15a-c480-d542-9ad3-20490c73e5f1<br>Ancestors: Morphic-mt.1623<br><br>Fixes broken balloon helps on halo handles<br><br>Please review.<br><br>=============== Diff against Morphic-mt.1623 ===============<br><br>Item was changed:<br> ----- Method: Morph>>invokeHaloOrMove: (in category 'meta-actions') -----<br> invokeHaloOrMove: anEvent<br> "Special gestures (cmd-mouse on the Macintosh; Alt-mouse on Windows and Unix) allow a mouse-sensitive morph to be moved or bring up a halo for the morph."<br> | h tfm doNotDrag |<br> h := anEvent hand halo.<br> "Prevent wrap around halo transfers originating from throwing the event back in"<br> doNotDrag := false.<br> h ifNotNil:[<br> (h innerTarget == self) ifTrue:[doNotDrag := true].<br> (h innerTarget hasOwner: self) ifTrue:[doNotDrag := true].<br> (self hasOwner: h target) ifTrue:[doNotDrag := true]].<br> <br> tfm := (self transformedFrom: nil) inverseTransformation.<br> <br> "cmd-drag on flexed morphs works better this way"<br> h := self addHalo: (anEvent transformedBy: tfm).<br> h ifNil: [^ self].<br> doNotDrag ifTrue:[^self].<br> "Initiate drag transition if requested"<br> anEvent hand <br> waitForClicksOrDrag: h<br> event: (anEvent transformedBy: tfm)<br> selectors: { nil. nil. nil. #startDragTarget:. }<br> threshold: HandMorph dragThreshold.<br> "Pass focus explicitly here"<br>+ anEvent hand mouseFocus: h owner.<br>- anEvent hand newMouseFocus: h.<br> "Reset temporary cursors to make available halo interaction visible."<br> anEvent hand showTemporaryCursor: nil.!<br><br><br></div></blockquote>
</div></body>