From f6ca017761fa568c7a16a92be519eb1da939b50e Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Tue, 5 Jul 2005 19:56:01 +0000
Subject: [PATCH] * fixes F10 to call the menu, by Sergey@michint

git-svn-id: trunk@588 -
---
 fv/menus.pas | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/fv/menus.pas b/fv/menus.pas
index 60ff9476d8..c4bf1544ec 100644
--- a/fv/menus.pas
+++ b/fv/menus.pas
@@ -1389,7 +1389,9 @@ BEGIN
              Event.What := evCommand;                 { Change to command }
              Event.Command := T^.Command;             { Set command value }
              Event.InfoPtr := Nil;                    { Clear info ptr }
-             Exit;                                    { Now exit }
+             PutEvent(Event);                           { Put event on queue }
+             ClearEvent(Event);                         { Clear the event }
+             Exit;             Exit;                                    { Now exit }
            End;
            T := T^.Next;                              { Next item }
          End;