mirror of
https://github.com/moparisthebest/Simba
synced 2024-11-11 20:05:03 -05:00
34 lines
707 B
ObjectPascal
34 lines
707 B
ObjectPascal
|
unit keybinder;
|
||
|
|
|
||
|
|
{
|
||
|
|
libKeybinder.
|
||
|
|
|
||
|
|
https://github.com/engla/keybinder & http://kaizer.se/wiki/keybinder/
|
||
|
|
|
||
|
|
GPL 2
|
||
|
|
}
|
||
|
|
|
||
|
|
{$mode objfpc}
|
||
|
|
|
||
|
|
interface
|
||
|
|
|
||
|
|
uses
|
||
|
|
ctypes, glib2;
|
||
|
|
|
||
|
|
|
||
|
|
const libKeybinder = 'keybinder';
|
||
|
|
|
||
|
|
type TKeyBinderHandler = procedure (keystring: PChar; user_data: PtrUInt); cdecl;
|
||
|
|
|
||
|
|
procedure keybinder_init; cdecl; external libKeybinder;
|
||
|
|
|
||
|
|
function keybinder_bind (keystring: PChar; handler: TKeyBinderHandler; user_data: PtrUInt): gboolean; cdecl; external libKeybinder;
|
||
|
|
procedure keybinder_bind (keystring: PChar; handler: TKeyBinderHandler; user_data: PtrUInt); cdecl; external libKeybinder;
|
||
|
|
|
||
|
|
function keybinder_get_current_event_time(): guint32; cdecl; external libKeybinder;
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
end.
|
||
|
|
|