--- a/MenuPanel.st	Sat Jul 29 18:07:43 2000 +0200
+++ b/MenuPanel.st	Tue Aug 01 10:52:56 2000 +0200
@@ -2457,12 +2457,14 @@
             self accept:nil
         ]
     ] ifFalse:[
-        self sensor compressKeyPressEventsWithKey:key.
-
-        menu handleKeyPress:key.
-
-        selection isNil ifTrue:[
-            self accept:nil
+        menu isViewWrapper ifFalse:[
+            self sensor compressKeyPressEventsWithKey:key.
+
+            menu handleKeyPress:key.
+
+            selection isNil ifTrue:[
+                self accept:nil
+            ]
         ]
     ].
 
@@ -3814,6 +3816,10 @@
 
 !
 
+isViewWrapper
+    ^ subViews size ~~ 0
+!
+
 openMenuOnSelect
     ^ (self menuAdornmentAt:#openMenuOnSelect) ? DefaultOpenOnSelect.
         
@@ -5971,6 +5977,6 @@
 !MenuPanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.229 2000-07-29 11:18:43 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.230 2000-08-01 08:52:56 ca Exp $'
 ! !
 MenuPanel initialize!