--- a/PopUpMenu.st	Wed Feb 28 15:23:12 1996 +0100
+++ b/PopUpMenu.st	Wed Feb 28 15:29:08 1996 +0100
@@ -866,8 +866,9 @@
 !
 
 buttonRelease:button x:x y:y
+realized ifFalse:[^ self].
     hideOnRelease ifFalse:[
-	^ self
+        ^ self
     ].
 
     self hide.
@@ -875,13 +876,20 @@
     menuView buttonRelease:button x:x y:y.
 "
     menuView superMenu notNil ifTrue:[
-	menuView superMenu submenuTriggered 
+        menuView superMenu submenuTriggered 
     ].
     menuView buttonRelease:button x:x y:y.
+
+    "Modified: 28.2.1996 / 13:10:10 / cg"
 !
 
 keyPress:key x:x y:y
 "/    hideOnRelease := true.
+    x <= 0 ifTrue:[
+        "/ already redelegated
+        ^ self
+    ].
+
     key == #Tab ifTrue:[
         self hide.
         super keyPress:key x:x y:y.
@@ -889,7 +897,7 @@
         menuView keyPress:key x:x y:y.
     ].
 
-    "Modified: 9.2.1996 / 22:07:06 / cg"
+    "Modified: 28.2.1996 / 15:22:32 / cg"
 !
 
 mapped
@@ -996,5 +1004,5 @@
 !PopUpMenu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.36 1996-02-26 22:41:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.37 1996-02-28 14:29:08 cg Exp $'
 ! !