--- a/PopUpMenu.st	Tue Sep 15 20:15:46 2009 +0200
+++ b/PopUpMenu.st	Tue Sep 15 20:20:09 2009 +0200
@@ -1306,12 +1306,13 @@
 buttonMotion:state x:x y:y
     |p superMenu sensor|
 
-    state == 0 ifTrue:[^ self].
+    "/ state == 0 ifTrue:[^ self].
 
     (sensor := self sensor) isNil ifTrue:[^ self].
+    (sensor hasButtonMotionEventFor:self) ifTrue:[^ self].
+
     "any-button ?"
-    sensor anyButtonPressed ifFalse:[^ self].
-    (sensor hasButtonMotionEventFor:self) ifTrue:[^ self].
+    "/ sensor anyButtonPressed ifFalse:[^ self].
 
     ((x >= 0) 
     and:[x < width
@@ -1484,7 +1485,7 @@
 initEvents
     super initEvents.
     self enableEnterLeaveEvents.
-"/    self enableMotionEvents.
+    self enableMotionEvents.
 
     "Modified: 7.3.1996 / 14:17:42 / cg"
 !
@@ -1606,5 +1607,5 @@
 !PopUpMenu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.100 2008-05-05 12:40:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.101 2009-09-15 18:20:09 cg Exp $'
 ! !