--- a/PopUpMenu.st	Fri Mar 21 12:47:33 1997 +0100
+++ b/PopUpMenu.st	Fri Mar 21 13:12:28 1997 +0100
@@ -1088,10 +1088,11 @@
 !PopUpMenu methodsFor:'event handling'!
 
 buttonMotion:state x:x y:y
-    |p superMenu|
+    |p superMenu sensor|
 
     state == 0 ifTrue:[^ self].
-    (self sensor hasButtonMotionEventFor:self) ifTrue:[^ self].
+    (sensor := self sensor) isNil ifTrue:[^ self].
+    (sensor hasButtonMotionEventFor:self) ifTrue:[^ self].
 
     ((x >= 0) and:[x < width]) ifTrue:[
         ((y >= 0) and:[y < height]) ifTrue:[
@@ -1321,5 +1322,5 @@
 !PopUpMenu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.62 1997-02-25 22:07:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.63 1997-03-21 12:12:28 cg Exp $'
 ! !