25 

    25 

    26 procedure initModule;

    26 procedure initModule;

    27 procedure freeModule;

    27 procedure freeModule;

    28 procedure ReloadLines;

    28 procedure ReloadLines;

    29 procedure CleanupInput;

    29 procedure CleanupInput;

    30 procedure AddChatString(s: shortstring);

    31 procedure AddChatString(s: shortstring);

    31 procedure DrawChat;

    32 procedure DrawChat;

    32 procedure KeyPressChat(keysym: TSDL_Keysym);

    33 procedure KeyPressChat(keysym: TSDL_Keysym);

    33 procedure SendHogSpeech(s: shortstring);

    34 procedure SendHogSpeech(s: shortstring);

    34 procedure CopyToClipboard(var newContent: shortstring);

    35 procedure CopyToClipboard(var newContent: shortstring);

   780     //SDL_EnableKeyRepeat(0,0);

   781     //SDL_EnableKeyRepeat(0,0);

   781     isInChatMode:= false;

   782     isInChatMode:= false;

   782     ResetKbd;

   783     ResetKbd;

   783 end;

   784 end;

   784 

   785 

   785 procedure DelBytesFromInputStrBack(endIdx: integer; count: byte);

   793 procedure DelBytesFromInputStrBack(endIdx: integer; count: byte);

   786 var startIdx: integer;

   794 var startIdx: integer;

   787 begin

   795 begin

   788     // nothing to do if count is 0

   796     // nothing to do if count is 0

   789     if count = 0 then

   797     if count = 0 then