hedgewars/uChat.pas
changeset 948 5d49a92c240a
parent 947 4e0c3ad89483
child 949 866729775535
--- a/hedgewars/uChat.pas	Sat May 24 21:10:49 2008 +0000
+++ b/hedgewars/uChat.pas	Sat May 24 22:28:40 2008 +0000
@@ -25,7 +25,7 @@
 procedure KeyPressChat(Key: Longword);
 
 implementation
-uses uMisc, uStore, uConsts, SDLh, uConsole;
+uses uMisc, uStore, uConsts, SDLh, uConsole, uKeys;
 
 const MaxStrIndex = 7;
 
@@ -119,13 +119,14 @@
 				InputStr.s[0]:= InputStrL[byte(InputStr.s[0])];
 				SetLine(InputStr, InputStr.s)
 				end;
-		13,271: begin
+		13, 271: begin
 			if Length(InputStr.s) > 0 then
 				begin
 				AddChatString(InputStr.s);
 				ParseCommand('/say ' + InputStr.s, true);
-				SetLine(InputStr, '');
+				SetLine(InputStr, '')
 				end;
+			FreezeEnterKey;
 			GameState:= gsGame
 			end
 	else