1
0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-14 13:25:14 -05:00
Simba/Units/Linux/keybinder.pas
2011-04-09 20:45:58 +02:00

34 lines
709 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_unbind (keystring: PChar; handler: TKeyBinderHandler; user_data: PtrUInt); cdecl; external libKeybinder;
function keybinder_get_current_event_time(): guint32; cdecl; external libKeybinder;
implementation
end.