# HG changeset patch
# User sheepluva
# Date 1425224724 -3600
# Node ID 6b0a839f399eca19e5684cc51d6303811a3894db
# Parent  6d19864117331d5f5f933fa8aa6cf1a62730512c
make team key play well with new cursor

diff -r 6d1986411733 -r 6b0a839f399e 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;