eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Code cleanup

This commit is contained in:
mysticbbs 2013-05-23 20:43:55 -04:00
parent 8c44cf02bb
commit 80571f1c8e
1 changed files with 27 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
mdl/m_input_darwin.pas
View File

@ -1,7 +1,7 @@
{$I M_OPS.PAS}
Unit m_Input_Darwin;
{$I M_OPS.PAS}
Interface
Const
@ -26,12 +26,12 @@ Type
KeySend : longint;
Function ttyRecvChar : Char;
Procedure PushKey(Ch:char);
Function PopKey:char;
Procedure PushKey (Ch : Char);
Function PopKey : Char;
Procedure PushExt(b:byte);
Function FAltKey(ch:char):byte;
function sysKeyPressed: boolean;
function KeyWait (MS: LongInt) : boolean;
Function sysKeyPressed: boolean;
Function KeyWait (MS: LongInt) : boolean;
Function KeyPressed:Boolean;
Function ReadKey:char;
Procedure PurgeInputData;
@ -211,10 +211,12 @@ Begin
end;
ch:=ttyRecvChar;
{Esc Found ?}
CASE ch OF
#27: begin
State:=1;
WaitMS(10);
@ -391,6 +393,7 @@ Begin
#127: PushKey(#8);
else PushKey(ch);
End;
ReadKey:=PopKey;
End;