equal
deleted
inserted
replaced
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 CloseChat; |
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 |
|
786 procedure CloseChat; |
|
787 begin |
|
788 SetLine(InputStr, '', true); |
|
789 ResetCursor(); |
|
790 CleanupInput(); |
|
791 end; |
|
792 |
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 |