Mercurial Mercurial > hedgewars / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
useless test
authornemo
Sun, 17 Mar 2013 10:25:19 -0400
changeset 8743 0097855532f6
parent 8742 b7b8bd398c1b
child 8744 6c87486fd89b
useless test
hedgewars/uChat.pas file | annotate | diff | comparison | revisions 
--- a/hedgewars/uChat.pas	Sun Mar 17 10:13:14 2013 -0400
+++ b/hedgewars/uChat.pas	Sun Mar 17 10:25:19 2013 -0400
@@ -310,44 +310,43 @@
     action: boolean;
 begin
     action:= false;
-    if Sym <> 0 then
-        case Sym of
-            SDLK_BACKSPACE:
+    case Sym of
+        SDLK_BACKSPACE:
+            begin
+            action:= true;
+            if Length(InputStr.s) > 0 then
                 begin
-                action:= true;
-                if Length(InputStr.s) > 0 then
-                    begin
-                    InputStr.s[0]:= InputStrL[byte(InputStr.s[0])];
-                    SetLine(InputStr, InputStr.s, true)
-                    end
-                end;
-            SDLK_ESCAPE: 
+                InputStr.s[0]:= InputStrL[byte(InputStr.s[0])];
+                SetLine(InputStr, InputStr.s, true)
+                end
+            end;
+        SDLK_ESCAPE: 
+            begin
+            action:= true;
+            if Length(InputStr.s) > 0 then 
+                SetLine(InputStr, '', true)
+            else CleanupInput
+            end;
+        SDLK_RETURN:
+            begin
+            action:= true;
+            if Length(InputStr.s) > 0 then
                 begin
-                action:= true;
-                if Length(InputStr.s) > 0 then 
-                    SetLine(InputStr, '', true)
-                else CleanupInput
+                AcceptChatString(InputStr.s);
+                SetLine(InputStr, '', false)
                 end;
-            SDLK_RETURN:
-                begin
-                action:= true;
-                if Length(InputStr.s) > 0 then
-                    begin
-                    AcceptChatString(InputStr.s);
-                    SetLine(InputStr, '', false)
-                    end;
-                CleanupInput
-                end;
-            SDLK_UP, SDLK_DOWN:
-                begin
-                action:= true;
-                if (Sym = SDLK_UP) and (history < localLastStr) then inc(history);
-                if (Sym = SDLK_DOWN) and (history > 0) then dec(history);
-                index:= localLastStr - history + 1;
-                if (index > localLastStr) then
-                     SetLine(InputStr, '', true)
-                else SetLine(InputStr, LocalStrs[index], true)
-                end
+            CleanupInput
+            end;
+        SDLK_UP, SDLK_DOWN:
+            begin
+            action:= true;
+            if (Sym = SDLK_UP) and (history < localLastStr) then inc(history);
+            if (Sym = SDLK_DOWN) and (history > 0) then dec(history);
+            index:= localLastStr - history + 1;
+            if (index > localLastStr) then
+                 SetLine(InputStr, '', true)
+            else SetLine(InputStr, LocalStrs[index], true)
+            end
         end;
     if not action and (Key <> 0) then
         begin
hedgewars