hedgewars/uChat.pas
changeset 9319 492a0ad67e33
parent 9317 a04c30940d2d
child 9521 8054d9d775fd
child 9569 dd1861ca4def
equal deleted inserted replaced
9317:a04c30940d2d 9319:492a0ad67e33
   325             begin
   325             begin
   326             if Length(InputStr.s) > 0 then
   326             if Length(InputStr.s) > 0 then
   327                 SetLine(InputStr, '', true)
   327                 SetLine(InputStr, '', true)
   328             else CleanupInput
   328             else CleanupInput
   329             end;
   329             end;
   330         SDLK_RETURN:
   330         SDLK_RETURN, SDLK_KP_ENTER:
   331             begin
   331             begin
   332             if Length(InputStr.s) > 0 then
   332             if Length(InputStr.s) > 0 then
   333                 begin
   333                 begin
   334                 AcceptChatString(InputStr.s);
   334                 AcceptChatString(InputStr.s);
   335                 SetLine(InputStr, '', false)
   335                 SetLine(InputStr, '', false)