make team key play well with new cursor
authorsheepluva
Sun, 01 Mar 2015 16:45:24 +0100
changeset 10841 6b0a839f399e
parent 10840 6d1986411733
child 10842 a039464cbb4a
make team key play well with new cursor
hedgewars/uChat.pas
--- a/hedgewars/uChat.pas	Sun Mar 01 16:38:18 2015 +0100
+++ b/hedgewars/uChat.pas	Sun Mar 01 16:45:24 2015 +0100
@@ -824,8 +824,14 @@
     if length(s) = 0 then
         SetLine(InputStr, '', true)
     else
+        begin
         SetLine(InputStr, '/team ', true)
-        // TODO: update InputStrL accordingly!
+        // update InputStrL and cursor accordingly
+        // this allows cursor-jumping over '/team ' as if it was a single char
+        InputStrL[6]:= 0;
+        cursorPos:= 6;
+        UpdateCursorCoords();
+        end;
 end;
 
 procedure initModule;