checkin from browser
authorca
Thu, 07 Mar 1996 10:33:53 +0100
changeset 487 4ee60598df58
parent 486 4c1cfc595c51
child 488 d10fe3a5f0cf
checkin from browser
PullDMenu.st
PullDownMenu.st
--- a/PullDMenu.st	Thu Mar 07 10:01:39 1996 +0100
+++ b/PullDMenu.st	Thu Mar 07 10:33:53 1996 +0100
@@ -919,7 +919,7 @@
         ^ self
     ].
 
-    activeMenuNumber isNil ifTrue:[^self].
+    activeMenuNumber isNil ifTrue:[^ super keyPress:key x:x y:y].
 
     "
      Return, space or the (virtual) MenuSelect key trigger
@@ -1341,5 +1341,5 @@
 !PullDownMenu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/PullDMenu.st,v 1.39 1996-03-06 17:07:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/PullDMenu.st,v 1.40 1996-03-07 09:33:53 ca Exp $'
 ! !
--- a/PullDownMenu.st	Thu Mar 07 10:01:39 1996 +0100
+++ b/PullDownMenu.st	Thu Mar 07 10:33:53 1996 +0100
@@ -919,7 +919,7 @@
         ^ self
     ].
 
-    activeMenuNumber isNil ifTrue:[^self].
+    activeMenuNumber isNil ifTrue:[^ super keyPress:key x:x y:y].
 
     "
      Return, space or the (virtual) MenuSelect key trigger
@@ -1341,5 +1341,5 @@
 !PullDownMenu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.39 1996-03-06 17:07:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.40 1996-03-07 09:33:53 ca Exp $'
 ! !