hedgewars/uChat.pas
changeset 5099 ce1a761d3c1e
parent 4976 088d40d8aba2
child 5100 951767beffc8
--- a/hedgewars/uChat.pas	Sun Apr 03 20:07:05 2011 +0400
+++ b/hedgewars/uChat.pas	Mon Apr 04 12:53:11 2011 +0200
@@ -278,7 +278,8 @@
                 SetLine(InputStr, '', false)
                 end;
             FreezeEnterKey;
-            GameState:= gsGame
+            SDL_EnableKeyRepeat(0,0);
+            GameState:= gsGame;
             end;
     else
     if (Key < $80) then btw:= 1
@@ -339,6 +340,7 @@
 begin
     s:= s; // avoid compiler hint
     GameState:= gsChat;
+    SDL_EnableKeyRepeat(200,45);
     if length(s) = 0 then
         KeyPressChat(27)
     else