hedgewars/uChat.pas
changeset 2003 41b3d00949ca
parent 1821 6b6cf3389f92
child 2017 7845c77c8d31
equal deleted inserted replaced
2002:37c71f5983c9 2003:41b3d00949ca
   164 				SetLine(InputStr, InputStr.s, true)
   164 				SetLine(InputStr, InputStr.s, true)
   165 				end;
   165 				end;
   166 		{Esc}
   166 		{Esc}
   167 		27: SetLine(InputStr, '', true);
   167 		27: SetLine(InputStr, '', true);
   168 		{Return}
   168 		{Return}
   169 		13, 271: begin
   169 		3, 13, 271: begin
   170 			if Length(InputStr.s) > 0 then
   170 			if Length(InputStr.s) > 0 then
   171 				begin
   171 				begin
   172 				AcceptChatString(InputStr.s);
   172 				AcceptChatString(InputStr.s);
   173 				SetLine(InputStr, '', false)
   173 				SetLine(InputStr, '', false)
   174 				end;
   174 				end;