--- a/MenuPanel.st	Wed Jun 04 16:04:01 1997 +0200
+++ b/MenuPanel.st	Wed Jun 11 15:56:53 1997 +0200
@@ -1926,7 +1926,14 @@
             ]
         ]
     ].
-    menu selection:(menu itemAt:idx)
+    (item := menu itemAt:idx) isNil ifTrue:[
+        menu hasSelection ifFalse:[
+            (menu := menu superMenu) isNil ifTrue:[
+                ^ super keyPress:key x:x y:y
+            ]
+        ]
+    ].
+    menu selection:item.
 
 !
 
@@ -2038,13 +2045,6 @@
 
 !
 
-focusSequence
-    "return the elements through which we can step via 
-     NextField/PreviousField keys
-    "
-    ^ nil
-!
-
 initialize
     "set default configuration
     "
@@ -2404,7 +2404,10 @@
     "return the views type. This is one of #normal,
      #master, #slave or #partner."
 
-    ^ #slave
+     superView notNil ifTrue:[
+        ^ superView type
+     ].
+   ^ #slave
 
 ! !
 
@@ -3620,6 +3623,6 @@
 !MenuPanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.8 1997-06-04 14:04:01 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.9 1997-06-11 13:56:53 ca Exp $'
 ! !
 MenuPanel initialize!