Cooperate better with X11 window managers. Patch from Juliusz

Chroboczek.
antifuchs · Apr 20, 2009 · 5a2f315 · 5a2f315
1 parent 5921d27
commit 5a2f315
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/Backends/CLX/port.lisp b/Backends/CLX/port.lisp
@@ -458,7 +458,14 @@
       (setf (xlib:wm-hints window) (xlib:make-wm-hints :input :on))
       (setf (xlib:wm-name window) (frame-pretty-name frame))
       (setf (xlib:wm-icon-name window) (frame-pretty-name frame))
-      (setf (xlib:wm-protocols window) `(:wm_delete_window)))))
+      (xlib:set-wm-class
+       window
+       (string-downcase (frame-name frame))
+       (string-capitalize (string-downcase (frame-name frame))))
+      (setf (xlib:wm-protocols window) `(:wm_delete_window))
+      (xlib:change-property window
+                            :WM_CLIENT_LEADER (list (xlib:window-id window))
+                            :WINDOW 32))))
 
 (defmethod realize-mirror ((port clx-port) (sheet unmanaged-top-level-sheet-pane))
   (realize-mirror-aux port sheet