--- a/MenuPanel.st Fri Mar 01 22:04:20 2019 +0100
+++ b/MenuPanel.st Sat Mar 02 12:23:52 2019 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 1997 by eXept Software AG
All Rights Reserved
@@ -3412,7 +3414,7 @@
buttonMotion:state x:x y:y
"open or close the corresponding submenu"
- |menue motionPoint translatedPoint sensor|
+ |menu motionPoint translatedPoint sensor anyButtonPressed|
self scrollActivity isActive ifTrue:[
^ self
@@ -3423,22 +3425,23 @@
"/ (sensor isNil or:[sensor hasButtonMotionEventFor:nil]) ifTrue:[
"/ ^ self
"/ ].
- menue := self detectGrabMenu.
+ menu := self detectGrabMenu.
motionPoint := x@y.
- translatedPoint := menue translateGrabPoint:motionPoint.
- menue handleButtonMotion:state atPoint:translatedPoint.
+ translatedPoint := menu translateGrabPoint:motionPoint.
+ menu handleButtonMotion:state atPoint:translatedPoint.
"/ hideOnRelease := true.
-
- (self isPopUpView or:[sensor anyButtonPressed]) ifTrue:[
+ anyButtonPressed := sensor anyButtonPressed.
+
+ (self isPopUpView or:[anyButtonPressed]) ifTrue:[
^ self
].
hideOnRelease ifTrue:[
- sensor anyButtonPressed ifFalse:[^ self]
+ anyButtonPressed ifFalse:[^ self]
] ifFalse:[
- sensor anyButtonPressed ifTrue:[^ self]
+ anyButtonPressed ifTrue:[^ self]
].
(selection notNil and:[selection visibleSubmenu isNil]) ifTrue:[
@@ -3448,7 +3451,8 @@
]
].
- "Modified: / 13.11.2001 / 20:21:49 / cg"
+ "Modified: / 13-11-2001 / 20:21:49 / cg"
+ "Modified: / 02-03-2019 / 12:11:40 / Claus Gittinger"
!
buttonPress:button x:x y:y
@@ -5207,7 +5211,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:[