--- a/View.st	Mon Feb 27 11:20:36 1995 +0100
+++ b/View.st	Tue Feb 28 22:51:15 1995 +0100
@@ -45,7 +45,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview/View.st,v 1.31 1995-02-27 10:19:51 claus Exp $
+$Header: /cvs/stx/stx/libview/View.st,v 1.32 1995-02-28 21:50:51 claus Exp $
 '!
 
 "this flag controls (globally) how views look - it will vanish"
@@ -70,7 +70,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview/View.st,v 1.31 1995-02-27 10:19:51 claus Exp $
+$Header: /cvs/stx/stx/libview/View.st,v 1.32 1995-02-28 21:50:51 claus Exp $
 "
 !
 
@@ -1582,6 +1582,20 @@
      The default here is the actual extent, the receiver currently has."
 
     ^ self extent
+!
+
+buttonMotionEventPending
+    "return true, if a button motion event is pending.
+     Normally, you dont want to use this, since no polling is needed
+     (not even for mouse-tracking).
+     Dont use it, since it does not honor the windowGroup, but
+     goes directly to the device instead.
+     Actually, its a historical leftover"
+
+    windowGroup notNil ifTrue:[
+	^ windowGroup sensor hasButtonMotionEventsFor:self
+    ].
+    ^ super buttonMotionEventPending
 ! !
 
 !View methodsFor:'enumerating subviews'!
@@ -4244,6 +4258,9 @@
 		 got one, launch the menu. It is supposed
 		 to return an actionSelector.
 		"
+		menu receiver isNil ifTrue:[
+		    menu receiver: model
+		].
 		actionSelector := menu startUp.
 		(actionSelector notNil
 		and:[actionSelector isSymbol]) ifTrue:[