paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 06:31:44 +01:00
Code Issues Packages Projects Releases Wiki Activity

* made AddSpecialSequence() public with the "platform" keyword, as

Browse Source 
suggested by Marco in his comment to mantis #13413

git-svn-id: trunk@12992 -
This commit is contained in:
Jonas Maebe 2009-04-01 17:05:33 +00:00
parent 7f6b246136
commit c66791a605
1 changed files with 16 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
rtl/unix/keyboard.pp
View File

@ -28,6 +28,19 @@ const
ShiftPrefix : byte = 0;
CtrlPrefix : byte = 0;
type
Tprocedure = procedure;
PTreeElement = ^TTreeElement;
TTreeElement = record
Next,Parent,Child : PTreeElement;
CanBeTerminal : boolean;
char : byte;
ScanValue : byte;
CharValue : byte;
SpecialHandler : Tprocedure;
end;
function RawReadKey:char;
function RawReadString : String;
function KeyPressed : Boolean;
@ -35,6 +48,9 @@ procedure AddSequence(const St : String; AChar,AScan :byte);inline;
function FindSequence(const St : String;var AChar, Ascan : byte) : boolean;
procedure RestoreStartMode;
function AddSpecialSequence(const St : string;Proc : Tprocedure) : PTreeElement; platform;
{*****************************************************************************}
implementation
{*****************************************************************************}
@ -546,19 +562,6 @@ const
LastMouseEvent:=MouseEvent;
end;
type
Tprocedure = procedure;
PTreeElement = ^TTreeElement;
TTreeElement = record
Next,Parent,Child : PTreeElement;
CanBeTerminal : boolean;
char : byte;
ScanValue : byte;
CharValue : byte;
SpecialHandler : Tprocedure;
end;
var roottree:array[char] of PTreeElement;
procedure FreeElement (PT:PTreeElement);