# HG changeset patch
# User koda
# Date 1301914391 -7200
# Node ID ce1a761d3c1e3e36933428ee889f45fe513f5b5a
# Parent  cb9cf41a208cf51a102f28b321607d020cde1452
enable keyrepeat while chatting so you can keep backspace pressed to delete a line (fix issue 111)

diff -r cb9cf41a208c -r ce1a761d3c1e hedgewars/SDLh.pas
--- a/hedgewars/SDLh.pas	Sun Apr 03 20:07:05 2011 +0400
+++ b/hedgewars/SDLh.pas	Mon Apr 04 12:53:11 2011 +0200
@@ -726,7 +726,8 @@
 procedure SDL_Quit; cdecl; external SDLLibName;
 
 function  SDL_VideoDriverName(var namebuf; maxlen: LongInt): PChar; cdecl; external SDLLibName;
-procedure SDL_EnableUNICODE(enable: LongInt); cdecl; external SDLLibName;
+function SDL_EnableUNICODE(enable: LongInt): LongInt; cdecl; external SDLLibName;
+function SDL_EnableKeyRepeat(delay, interval: LongInt): LongInt; cdecl; external;
 
 procedure SDL_Delay(msec: Longword); cdecl; external SDLLibName;
 function  SDL_GetTicks: Longword; cdecl; external SDLLibName;
diff -r cb9cf41a208c -r ce1a761d3c1e hedgewars/uChat.pas
--- 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