#FEATURE by exept
authorClaus Gittinger <cg@exept.de>
Sun, 15 Sep 2019 18:54:25 +0200
changeset 6148 e3b389204cce
parent 6147 486df069a8cd
child 6149 d8d846da0364
#FEATURE by exept class: MenuPanel changed: #dispatchEvent:withFocusOn:delegate: info about who delegated the event
MenuPanel.st
--- a/MenuPanel.st	Sun Sep 15 18:54:11 2019 +0200
+++ b/MenuPanel.st	Sun Sep 15 18:54:25 2019 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1997 by eXept Software AG
               All Rights Reserved
@@ -3911,10 +3909,12 @@
             lastPointerView notNil ifTrue:[
                 "/ XXX: should be fixed
                 syntheticEvent := WindowEvent pointerLeave:0 view:lastPointerView.
+                syntheticEvent delegatedFrom:self.
                 lastPointerView dispatchEvent:syntheticEvent withFocusOn:nil delegate:false.
             ].
             view notNil ifTrue:[
                 syntheticEvent := WindowEvent pointerEnter:0 x:x y:y view:view.
+                syntheticEvent delegatedFrom:self.
                 view dispatchEvent:syntheticEvent withFocusOn:nil delegate:false.
             ].
             lastPointerView := view.
@@ -5282,7 +5282,7 @@
      we have non translated sub menus (when using them later for viewing).
      Problem expecco Menu 'View' was somethimes untranslated and somethimes not.
      Dependent if this code was called before the user did open (instantiate) the menu via the application.
-     May also the shortcuts itself could vary when translated 'Open &File' -> 'Datei &öffnen' ????"
+     May also the shortcuts itself could vary when translated 'Open &File' -> 'Datei &öffnen' ????"
     Menu::NeedResourcesQuery answer:true do:[
 "/    Menu::NeedResourcesQuery answer:false do:[
         [true] whileTrue:[