preps for right-menu on buttonRelease
authorClaus Gittinger <cg@exept.de>
Tue, 15 Sep 2009 20:15:42 +0200
changeset 3911 2e2c5429a2f9
parent 3910 a9536a430be0
child 3912 303733585541
preps for right-menu on buttonRelease
MenuView.st
--- a/MenuView.st	Tue Sep 15 14:12:51 2009 +0200
+++ b/MenuView.st	Tue Sep 15 20:15:42 2009 +0200
@@ -1777,13 +1777,9 @@
 !MenuView methodsFor:'event handling'!
 
 buttonMotion:state x:x y:y
-    state ~~ 0 ifTrue:[
-        (self sensor hasButtonMotionEventFor:self) ifFalse:[
-            self setSelectionForX:x y:y
-        ]
+    (self sensor hasButtonMotionEventFor:self) ifFalse:[
+        self setSelectionForX:x y:y
     ]
-
-    "Modified: 25.2.1997 / 22:33:18 / cg"
 !
 
 buttonPress:button x:x y:y
@@ -1965,9 +1961,10 @@
 initEvents
     super initEvents.
     self enableLeaveEvents.
+    self enableMotionEvents.
 
     windowGroup notNil ifTrue:[
-	windowGroup sensor compressMotionEvents:true
+        windowGroup sensor compressMotionEvents:true
     ]
 
     "Modified: 7.3.1996 / 14:18:09 / cg"
@@ -2910,5 +2907,5 @@
 !MenuView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.156 2009-07-29 18:00:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.157 2009-09-15 18:15:42 cg Exp $'
 ! !