moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-21 16:55:01 -05:00
Code Issues Releases Wiki Activity

Simba: Add global keybindings for Linux.

Browse Source
This commit is contained in:
Merlijn Wajer 2011-04-07 19:39:54 +02:00
parent eca61a857f
commit ac0f977cc8
2 changed files with 57 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
Projects/Simba/simbaunit.pas
View File

@ -514,7 +514,8 @@ uses
bitmaps,
extensionmanagergui,
colourhistory,
math;
math,
keybinder;
{$ifdef mswindows}
function ConsoleHandler( eventType : DWord) : WINBOOL;stdcall;
@ -523,7 +524,7 @@ begin
Result := true;
end;
{ Used for global callbacks on WINDOWS }
function WndCallback(Ahwnd: HWND; uMsg: UINT; wParam: WParam;
lParam: LParam): LRESULT stdcall;
begin
@ -535,6 +536,14 @@ begin
Result := Windows.CallWindowProc(PrevWndProc,Ahwnd, uMsg, WParam, LParam);
end;
{$else}
{$WARNING This will probably not work if people don't have libkeybinder installed. Perhaps ship it with Simba? }
{ Used for global callbacks on LINUX }
procedure keybinder_callback(keystring: PChar; user_data: PtrUInt); cdecl;
begin
SimbaForm.ActionStopScript.Execute;
end;
{$endif}
var
@ -2257,14 +2266,24 @@ begin
{$ifdef MSWindows}
ConsoleVisible := True;
{ Bind CTRL+ALT+S to Script stop }
PrevWndProc := Windows.WNDPROC(GetWindowLong(self.handle,GWL_WNDPROC));
SetWindowLong(Self.Handle,GWL_WNDPROC,PtrInt(@WndCallback));
if not RegisterHotkey(Self.Handle,0,MOD_CONTROL or MOD_ALT,VK_S) then
mDebugLn('Unable to register ctrl + alt + s as global hotkey');
mDebugLn('Unable to register Ctrl + Alt + S as global hotkey');
{$else}
TT_Console.Visible:= false;
TT_Console.Visible:= False;
{ Bind CTRL+ALT+S to Script stop }
keybinder_init(); { Initialise keybinder }
{ Bind keys }
if not keybinder_bind(PChar('<Ctrl><Alt>S'), @keybinder_callback, PtrUInt(0)) then
mDebugLn('Unable to register Ctrl + Alt + S as global hotkey');
{$endif}
InitmDebug;
InitmDebug; { Perhaps we need to place this before our mDebugLines?? }
Self.OnScriptStart:= @ScriptStartEvent;

33
Units/Linux/keybinder.pas Normal file
View File

@ -0,0 +1,33 @@
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.