MenuPanel.st
changeset 4082 e85a434b71ed
parent 4081 c9e21f4ccca1
child 4086 d4818ca73683
--- a/MenuPanel.st	Fri Sep 23 10:42:27 2011 +0200
+++ b/MenuPanel.st	Sun Oct 02 10:32:15 2011 +0200
@@ -3096,22 +3096,24 @@
     menu  := self detectMenuAtGrabPoint:point.
 
     menu isNil ifTrue:[
-	self accept:nil.
-
-	"/ tell underlying view about the click...
-	(button == 2 and:[UserPreferences current showRightButtonMenuOnRelease]) ifTrue:[
-	    screen := self device.
-	    screenPoint := screen translatePointToRoot:point fromView:self.
-	    targetView := screen viewFromPoint:screenPoint.
-	    targetPoint := screen translatePoint:screenPoint fromView:screen rootView toView:targetView.
-	    targetView buttonPress:button x:targetPoint x y:targetPoint y.
-	].
+        self accept:nil.
+
+        "/ tell underlying view about the click...
+        (button == 2 and:[UserPreferences current showRightButtonMenuOnRelease]) ifTrue:[
+            screen := self device.
+            screenPoint := screen translatePointToRoot:point fromView:self.
+            targetView := screen viewFromPoint:screenPoint.
+            targetView notNil ifTrue:[
+                targetPoint := screen translatePoint:screenPoint fromView:screen rootView toView:targetView.
+                targetView buttonPress:button x:targetPoint x y:targetPoint y.
+            ]
+        ].
     ] ifFalse:[
-	point := menu translateGrabPoint:point.
-	menu handleButtonPress:button atPoint:point.
+        point := menu translateGrabPoint:point.
+        menu handleButtonPress:button atPoint:point.
     ]
 
-    "Modified: / 05-08-2010 / 20:56:20 / cg"
+    "Modified: / 02-10-2011 / 09:20:08 / cg"
 !
 
 buttonRelease:button x:x y:y
@@ -8546,7 +8548,7 @@
 !MenuPanel class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.525 2011-09-23 08:42:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.526 2011-10-02 08:32:15 cg Exp $'
 ! !
 
 MenuPanel initialize!