paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 14:19:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixes F10 to call the menu, by Sergey@michint

Browse Source 
git-svn-id: trunk@588 -
This commit is contained in:
florian 2005-07-05 19:56:01 +00:00
parent 6846195a6c
commit f6ca017761
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
fv/menus.pas
View File

@ -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;