Index: Backends/CLX/port.lisp
===================================================================
RCS file: /project/mcclim/cvsroot/mcclim/Backends/CLX/port.lisp,v
retrieving revision 1.137
diff -u -r1.137 port.lisp
--- Backends/CLX/port.lisp	18 Feb 2009 17:34:44 -0000	1.137
+++ Backends/CLX/port.lisp	2 Mar 2009 21:03:36 -0000
@@ -456,7 +462,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