From d867b45da9be1462d9e163030812895b26a5be00 Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Fri, 1 Mar 2013 10:58:40 +0000
Subject: [PATCH] LCL: Make GTK2 IDE work better on Awesome window manager.
 Issue #23917, patch from Sven Barth

git-svn-id: trunk@40453 -
---
 lcl/interfaces/gtk2/gtk2widgetset.inc | 25 +++++++++++++++++++++++--
 1 file changed, 23 insertions(+), 2 deletions(-)

diff --git a/lcl/interfaces/gtk2/gtk2widgetset.inc b/lcl/interfaces/gtk2/gtk2widgetset.inc
index 8c3ff86e1c..4fd6c4e751 100644
--- a/lcl/interfaces/gtk2/gtk2widgetset.inc
+++ b/lcl/interfaces/gtk2/gtk2widgetset.inc
@@ -951,6 +951,27 @@ begin
 end;
 
 constructor TGtk2WidgetSet.Create;
+{$IFDEF HASX}
+const
+  WMNoTransient: array[0..1] of String = (
+    'kwin',
+    'awesome'
+  );
+
+  function IsNoTransientWM: Boolean;
+  var
+    wmname: String;
+    i: Integer;
+  begin
+    wmname := GetWindowManager;
+    //DebugLn('Window Manager identifier: ', wmname);
+    Result := False;
+    for i := Low(WMNoTransient) to High(WMNoTransient) do
+      if wmname = WMNoTransient[i] then
+        Exit(True);
+  end;
+
+{$ENDIF}
 begin
   inherited Create;
   FCachedTitleBarHeight := -1;
@@ -970,9 +991,9 @@ begin
   g_signal_connect (G_OBJECT (im_context), 'commit',
     G_CALLBACK (@gtk_commit_cb), nil);
   {$IFDEF HASX}
-  if GetWindowManager = 'kwin' then
+  if IsNoTransientWM then
   begin
-    //kwin does it's own transient settings
+    //some window managers do their own transient settings
     UseTransientForModalWindows := False;
     FDesktopWidget := gtk_window_new(GTK_WINDOW_TOPLEVEL);
     gtk_widget_set_parent_window(FDesktopWidget, gdk_get_default_root_window);