diff --git a/Projects/SAMufasaGUI/project1.lpi b/Projects/SAMufasaGUI/project1.lpi
index 863644d..8890030 100644
--- a/Projects/SAMufasaGUI/project1.lpi
+++ b/Projects/SAMufasaGUI/project1.lpi
@@ -7,7 +7,7 @@
-
+
@@ -220,8 +220,8 @@
-
-
+
+
@@ -273,8 +273,8 @@
-
-
+
+
@@ -305,9 +305,9 @@
-
-
-
+
+
+
@@ -1178,7 +1178,7 @@
-
+
@@ -1595,154 +1595,158 @@
-
+
-
-
-
+
+
+
-
-
+
+
+
+
-
-
+
+
+
+
-
-
+
+
-
-
+
+
-
+
-
+
-
+
-
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
+
-
-
+
+
-
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
+
diff --git a/Units/MMLAddon/mmlpsthread.pas b/Units/MMLAddon/mmlpsthread.pas
index 1352bb4..0f35377 100644
--- a/Units/MMLAddon/mmlpsthread.pas
+++ b/Units/MMLAddon/mmlpsthread.pas
@@ -157,7 +157,6 @@ begin
SyncInfo:= TheSyncInfo;
SetLength(PluginsToLoad,0);
Client := TClient.Create;
- Client.MInput.SendText('hoi');
PSScript := TPSScript.Create(nil);
PSScript.UsePreProcessor:= True;
PSScript.OnNeedFile := @RequireFile;
diff --git a/Units/MMLCore/input.pas b/Units/MMLCore/input.pas
index 4146926..dad1f22 100644
--- a/Units/MMLCore/input.pas
+++ b/Units/MMLCore/input.pas
@@ -32,7 +32,7 @@ uses
mufasatypes, // for common mufasa types
windowutil, // for mufasa window utils
{$IFDEF LINUX}
- ctypes,x, xlib,xtest, XKeyInput, lclintf;// for X* stuff
+ ctypes,x, xlib,xtest, MMLKeyInput, lclintf;// for X* stuff
// do non silent keys/mouse with XTest / TKeyInput.
{Later on we should use xdotool, as it allows silent input}
{$ENDIF}
@@ -68,7 +68,7 @@ type
// Not used yet.
Silent: Boolean;
{$IFDEF LINUX}
- KeyInput: TXKeyInput;
+ KeyInput: TMMLKeyInput;
{$ENDIF}
end;
@@ -131,7 +131,7 @@ begin
inherited Create;
Self.Client := Client;
{$IFDEF LINUX}
- Self.KeyInput := TXKeyInput.Create;
+ Self.KeyInput := TMMLKeyInput.Create;
{$ENDIF}
end;
diff --git a/Units/MMLCore/mmlkeyinput.pas b/Units/MMLCore/mmlkeyinput.pas
new file mode 100644
index 0000000..e8a7865
--- /dev/null
+++ b/Units/MMLCore/mmlkeyinput.pas
@@ -0,0 +1,58 @@
+unit MMLKeyInput;
+
+{
+ This file is part of the Mufasa Macro Library (MML)
+ Copyright (c) 2009 by Raymond van Venetië and Merlijn Wajer
+
+ MML is free software: you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation, either version 3 of the License, or
+ (at your option) any later version.
+
+ MML is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with MML. If not, see .
+
+ See the file COPYING, included in this distribution,
+ for details about the copyright.
+
+ MMLKeyInput class for Keyboard input in MML.
+}
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+ Classes, SysUtils, XKeyInput;
+
+type
+ TMMLKeyInput = class(TXKeyInput)
+ public
+ { Override these two methods,
+ as the original class calls ProcessMessages;
+ }
+ procedure Down(Key: Word);
+ procedure Up(Key: Word);
+end;
+
+
+implementation
+uses LCLType;
+
+procedure TMMLKeyInput.Down(Key: Word);
+begin
+ DoDown(Key);
+end;
+
+procedure TMMLKeyInput.Up(Key: Word);
+begin
+ DoUp(Key);
+end;
+
+end.
+