1
0
mirror of https://github.com/moparisthebest/Simba synced 2024-12-02 13:52:18 -05:00
Simba/Units/Linux/keybinder.pas

34 lines
709 B
ObjectPascal
Raw Normal View History

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;
function keybinder_get_current_event_time(): guint32; cdecl; external libKeybinder;
implementation
end.