moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-24 18:22:25 -05:00
Code Issues Releases Wiki Activity

Lil fix in ActivateClient

Browse Source 
git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@17 3f818213-9676-44b0-a9b4-5e4c4e03d09d
This commit is contained in:
Raymond 2009-09-04 04:24:26 +00:00
parent babee3c3d2
commit a6a7f0b247
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Units/MMLCore/window.pas
View File

@ -298,9 +298,11 @@ end;
procedure TMWindow.ActivateClient; procedure TMWindow.ActivateClient;
begin begin
{$IFDEF MSWINDOWS} {$IFDEF MSWINDOWS}
if TargetMode = w_Window then
SetForegroundWindow(Self.TargetHandle); SetForegroundWindow(Self.TargetHandle);
{$ENDIF} {$ENDIF}
{$IFDEF LINUX} {$IFDEF LINUX}
if TargetMode = w_XWindow then
XSetInputFocus(Self.XDisplay,Self.CurWindow,RevertToParent,CurrentTime); XSetInputFocus(Self.XDisplay,Self.CurWindow,RevertToParent,CurrentTime);
{$ENDIF} {$ENDIF}
end; end;