<div id="__MailbirdStyleContent" style="font-size: 10pt;font-family: Arial;color: #000000;text-align: left" dir="ltr">
Hi Christoph --<div><br></div><div>I applied the one-liner I proposed. Treated Morphic-ct.1855. If you see more issues in this area, please report back.</div><div><br></div><div>Note that <span style="font-size: 10pt">Morphic event dispatch for overlapping siblings is still not supported and relies on top-most participants/morphs to either implement #rejectsEvent: or occluded morphs to exploit keyboard/mouse focus. The latter I would not recommend.</span></div><div><br></div><div>Best,</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 23.01.2022 08:47:06 schrieb Marcel Taeumel <marcel.taeumel@hpi.de>:</p><div style="font-family:Arial,Helvetica,sans-serif"><div id="__MailbirdStyleContent" style="font-size: 10pt;font-family: Arial;color: #000000;text-align: left" dir="ltr">
Hi Christoph --<div><br></div><div>-1</div><div><br></div><div>For, I would just use this:</div><div><br></div><div><span style="font-size: 13.3333px">delta := self innerBounds amountToTranslateWithin: sourceItem world visibleClearArea.</span><br></div><div><span style="font-size: 13.3333px"><br></span></div><div><span style="font-size: 13.3333px">Best,</span></div><div><span style="font-size: 13.3333px">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;min-width: 500px">
<p style="color: #AAAAAA; margin-top: 10px;">Am 22.01.2022 17:53:56 schrieb commits@source.squeak.org <commits@source.squeak.org>:</p><div style="font-family:Arial,Helvetica,sans-serif">A new version of Morphic was added to project The Inbox:<br>http://source.squeak.org/inbox/Morphic-ct.1855.mcz<br><br>==================== Summary ====================<br><br>Name: Morphic-ct.1855<br>Author: ct<br>Time: 22 January 2022, 5:53:35.957739 pm<br>UUID: a884bbaa-fd98-8346-8712-0f4339f60d6e<br>Ancestors: Morphic-mt.1854<br><br>Fixes occlusion of docking bar menus by the docking bar when the menu is taller than the world. As the docking bar is displayed in front of its menus, the first menu's item would not be visible otherwise.<br><br>Note that in the long term, we might want to add a scroll bar to menus that do not fit into the screen.<br><br>=============== Diff against Morphic-mt.1854 ===============<br><br>Item was added:<br>+ ----- Method: DockingBarItemMorph>>clearAreaForSubmenus (in category 'accessing') -----<br>+ clearAreaForSubmenus<br>+ "The receiver is displayed behind any docking bars (which have a smaller morphic layer number) and thus must not cross them."<br>+ <br>+ ^ self world clearArea!<br><br>Item was added:<br>+ ----- Method: MenuItemMorph>>clearAreaForSubmenus (in category 'accessing') -----<br>+ clearAreaForSubmenus<br>+ <br>+ ^ self worldBounds!<br><br>Item was changed:<br> ----- Method: MenuMorph>>popUpAdjacentTo:forHand:from: (in category 'control') -----<br> popUpAdjacentTo: rightOrLeftPoint forHand: hand from: sourceItem <br> "Present this menu at the given point under control of the given hand."<br> <br> | tryToPlace selectedOffset rightPoint leftPoint |<br> hand world startSteppingSubmorphsOf: self.<br> popUpOwner := sourceItem.<br> <br> self fullBounds.<br> self updateColor.<br> <br> "ensure layout is current"<br> selectedOffset := (selectedItem<br> ifNil: [self items first]) position - self position.<br> tryToPlace := [:where :mustFit | | delta | <br> self position: where - selectedOffset.<br>+ delta := (self boundsInWorld insetBy: self layoutInset) amountToTranslateWithin: sourceItem clearAreaForSubmenus.<br>- delta := self boundsInWorld amountToTranslateWithin: sourceItem worldBounds.<br> (delta x = 0<br> or: [mustFit])<br> ifTrue: [delta = (0 @ 0)<br> ifFalse: [self position: self position + delta].<br> sourceItem world addMorphFront: self.<br> ^ self]].<br> rightPoint := rightOrLeftPoint first + ((self layoutInset + self borderWidth) @ 0).<br> leftPoint := rightOrLeftPoint last + ((self layoutInset + self borderWidth - self width) @ 0).<br> tryToPlace<br> value: rightPoint value: false;<br> value: leftPoint value: false;<br> value: rightPoint value: true.!<br><br><br></div></blockquote>
</div></div></blockquote></div>