From 4b251646770b838c9d30e7f07d0ca4e2bdb1689d Mon Sep 17 00:00:00 2001
From: graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>
Date: Tue, 15 Apr 2008 11:45:39 +0000
Subject: * Implemented ActiveWindow method.

---
 src/corelib/x11/gfx_x11.pas | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'src/corelib/x11/gfx_x11.pas')

diff --git a/src/corelib/x11/gfx_x11.pas b/src/corelib/x11/gfx_x11.pas
index ca0f5a90..f32b645d 100644
--- a/src/corelib/x11/gfx_x11.pas
+++ b/src/corelib/x11/gfx_x11.pas
@@ -199,6 +199,7 @@ type
     property    WinHandle: TfpgWinHandle read FWinHandle;
   public
     constructor Create(AOwner: TComponent); override;
+    procedure   ActivateWindow; override;
     procedure   CaptureMouse; override;
     procedure   ReleaseMouse; override;
     procedure   SetFullscreen(AValue: Boolean); override;
@@ -1595,6 +1596,11 @@ begin
   FBackupWinHandle := 0;
 end;
 
+procedure TfpgWindowImpl.ActivateWindow;
+begin
+  XSetInputFocus(xapplication.Display, FWinHandle, RevertToParent, CurrentTime);
+end;
+
 procedure TfpgWindowImpl.CaptureMouse;
 begin
   XGrabPointer(xapplication.Display, FWinHandle,
-- 
cgit v1.2.3-70-g09d2