equal
deleted
inserted
replaced
822 SDL_EnableKeyRepeat(200,45); |
822 SDL_EnableKeyRepeat(200,45); |
823 {$ENDIF} |
823 {$ENDIF} |
824 if length(s) = 0 then |
824 if length(s) = 0 then |
825 SetLine(InputStr, '', true) |
825 SetLine(InputStr, '', true) |
826 else |
826 else |
|
827 begin |
827 SetLine(InputStr, '/team ', true) |
828 SetLine(InputStr, '/team ', true) |
828 // TODO: update InputStrL accordingly! |
829 // update InputStrL and cursor accordingly |
|
830 // this allows cursor-jumping over '/team ' as if it was a single char |
|
831 InputStrL[6]:= 0; |
|
832 cursorPos:= 6; |
|
833 UpdateCursorCoords(); |
|
834 end; |
829 end; |
835 end; |
830 |
836 |
831 procedure initModule; |
837 procedure initModule; |
832 var i: ShortInt; |
838 var i: ShortInt; |
833 begin |
839 begin |