#FEATURE by exept
class: MenuPanel
changed: #dispatchEvent:withFocusOn:delegate:
info about who delegated the event
--- 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:[