Преглед на файлове

Amiga: keyboard prevent double keys on GetKeyEvent, if called without PollKeyEvent

git-svn-id: trunk@45196 -
marcus преди 5 години
родител
ревизия
c6b0195c5f
променени са 1 файла, в които са добавени 3 реда и са изтрити 0 реда
  1. 3 0
      packages/rtl-console/src/amicommon/keyboard.pp

+ 3 - 0
packages/rtl-console/src/amicommon/keyboard.pp

@@ -485,6 +485,9 @@ begin
     repeat
       WaitPort(VideoWindow^.UserPort);
       Res := SysPollKeyEvent;
+      // remove event from KeyQueue, because we return it here,
+      // else we get double keys if GetKeyevent is called without a PollKeyEvent called first
+      KeyQueue := 0; 
     until Res <> 0;
   end else
   begin