hedgewars/uChat.pas
branchsdl2transition
changeset 9697 198c3ed28fe8
parent 9676 ce7396d4eaf7
child 9699 fab319c85a39
--- a/hedgewars/uChat.pas	Fri Nov 08 17:53:02 2013 +0400
+++ b/hedgewars/uChat.pas	Sun Nov 10 01:45:43 2013 +0400
@@ -306,7 +306,9 @@
 begin
     FreezeEnterKey;
     history:= 0;
-{$IFNDEF SDL2}
+{$IFDEF SDL2}
+    SDL_StopTextInput();
+{$ELSE}
     SDL_EnableKeyRepeat(0,0);
 {$ENDIF}
     GameState:= gsGame;
@@ -431,7 +433,9 @@
 begin
     s:= s; // avoid compiler hint
     GameState:= gsChat;
-{$IFNDEF SDL2}
+{$IFDEF SDL2}
+    SDL_StartTextInput();
+{$ELSE}
     SDL_EnableKeyRepeat(200,45);
 {$ENDIF}
     if length(s) = 0 then