[mcclim-cvs] CVS mcclim/Backends/CLX

[crhodes]

Update of /project/mcclim/cvsroot/mcclim/Backends/CLX
In directory cl-net:/tmp/cvs-serv13113/Backends/CLX

Modified Files:
	port.lisp 
Log Message:
Cooperate better with X11 window managers.  Patch from Juliusz 
Chroboczek.


--- /project/mcclim/cvsroot/mcclim/Backends/CLX/port.lisp	2009/04/20 09:56:45	1.138
+++ /project/mcclim/cvsroot/mcclim/Backends/CLX/port.lisp	2009/04/20 10:14:27	1.139
@@ -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