--- a/PullDownMenu.st	Tue Feb 25 23:39:43 1997 +0100
+++ b/PullDownMenu.st	Tue Feb 25 23:40:10 1997 +0100
@@ -1164,14 +1164,18 @@
         m keyPress:key x:0 y:0.
     ].
 
-    "Modified: 9.1.1997 / 12:15:48 / cg"
+    "Modified: 25.2.1997 / 23:38:15 / cg"
 !
 
 showNoFocus:explicit
     "when stepping focus, hide any active menu"
 
-    self hideActiveMenu.
-    super showNoFocus:explicit
+    explicit ifTrue:[
+        self hideActiveMenu.
+        super showNoFocus:explicit
+    ]
+
+    "Modified: 25.2.1997 / 23:31:38 / cg"
 ! !
 
 !PullDownMenu methodsFor:'hiding/showing menus'!
@@ -1667,5 +1671,5 @@
 !PullDownMenu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.71 1997-01-17 22:23:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.72 1997-02-25 22:40:10 cg Exp $'
 ! !