--- 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!