--- a/PopUpMenu.st	Mon Mar 04 23:25:31 1996 +0100
+++ b/PopUpMenu.st	Mon Mar 04 23:29:14 1996 +0100
@@ -657,7 +657,7 @@
     "
 
     "Created: 10.1.1996 / 20:11:42 / cg"
-    "Modified: 10.1.1996 / 20:12:26 / cg"
+    "Modified: 4.3.1996 / 22:14:47 / cg"
 !
 
 startUpWithHeading:aString
@@ -941,21 +941,16 @@
         ^ self
     ].
 
-    self hide.
-"
-    menuView buttonRelease:button x:x y:y.
-"
-    menuView superMenu notNil ifTrue:[
-        menuView superMenu submenuTriggered 
-    ].
+"/    menuView superMenu notNil ifTrue:[
+"/        menuView superMenu submenuTriggered 
+"/    ].
     menuView buttonRelease:button x:x y:y.
 
-    "Modified: 28.2.1996 / 13:10:10 / cg"
+    "Modified: 4.3.1996 / 23:16:27 / cg"
 !
 
 keyPress:key x:x y:y
-"/    hideOnRelease := true.
-    x <= 0 ifTrue:[
+    (x isNil or:[x == 0]) ifTrue:[
         "/ already redelegated
         ^ self
     ].
@@ -967,7 +962,7 @@
         menuView keyPress:key x:x y:y.
     ].
 
-    "Modified: 28.2.1996 / 15:22:32 / cg"
+    "Modified: 4.3.1996 / 23:26:31 / cg"
 !
 
 mapped
@@ -1074,5 +1069,5 @@
 !PopUpMenu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.39 1996-03-02 11:23:13 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.40 1996-03-04 22:28:50 cg Exp $'
 ! !