--- a/MenuPanel.st	Wed Jan 08 01:46:19 2020 +0100
+++ b/MenuPanel.st	Sun Jan 12 11:10:09 2020 +0100
@@ -4795,17 +4795,6 @@
     ^ nil
 
     "Modified: / 11-06-2018 / 08:14:16 / Claus Gittinger"
-!
-
-withMenuAndItemAt:srcPoint do:aBlock
-    |dstMenu dstPoint item|
-
-    dstMenu := self detectMenuAtGrabPoint:srcPoint.
-    dstMenu notNil ifTrue:[
-        dstPoint := dstMenu translateGrabPoint:srcPoint.
-        item := dstMenu itemAtPoint:dstPoint.
-        aBlock value:dstMenu value:item.
-    ]
 ! !
 
 !MenuPanel methodsFor:'help specs'!
@@ -5547,6 +5536,17 @@
         rightArrow       := superMenu rightArrow.
         rightArrowShadow := superMenu rightArrowShadow.
     ].
+!
+
+withMenuAndItemAt:srcPoint do:aBlock
+    |dstMenu dstPoint item|
+
+    dstMenu := self detectMenuAtGrabPoint:srcPoint.
+    dstMenu notNil ifTrue:[
+        dstPoint := dstMenu translateGrabPoint:srcPoint.
+        item := dstMenu itemAtPoint:dstPoint.
+        aBlock value:dstMenu value:item.
+    ]
 ! !
 
 !MenuPanel methodsFor:'private-activation'!