#DOCUMENTATION by cg
authorClaus Gittinger <cg@exept.de>
Sat, 02 Mar 2019 12:23:52 +0100
changeset 6021 15bfa1dd30de
parent 6020 2594f0f2752c
child 6022 ccbc2453e82d
#DOCUMENTATION by cg class: MenuPanel changed: #buttonMotion:x:y:
MenuPanel.st
--- 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:[