diff -r 583befe33648 -r ce8842029d20 PopUpMenu.st --- 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 $' ! !