changeset 10841 | 6b0a839f399e |
parent 10839 | aa0ceb47da1d |
child 10842 | a039464cbb4a |
--- 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;