2011-04-07 13:39:54 -04:00
|
|
|
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;
|
2011-04-09 14:45:58 -04:00
|
|
|
procedure keybinder_unbind (keystring: PChar; handler: TKeyBinderHandler; user_data: PtrUInt); cdecl; external libKeybinder;
|
2011-04-07 13:39:54 -04:00
|
|
|
|
|
|
|
|
function keybinder_get_current_event_time(): guint32; cdecl; external libKeybinder;
|
|
|
|
|
|
|
|
|
|
implementation
|
|
|
|
|
|
|
|
|
|
end.
|
|
|
|
|
|
