[mcclim-cvs] CVS mcclim/Backends/CLX

[tmoore]

Update of /project/mcclim/cvsroot/mcclim/Backends/CLX
In directory common-lisp:/tmp/cvs-serv30236/Backends/CLX

Modified Files:
	port.lisp 
Log Message:
{raise,bury}-{frame,sheet,mirror}

--- /project/mcclim/cvsroot/mcclim/Backends/CLX/port.lisp	2006/01/22 21:17:07	1.119
+++ /project/mcclim/cvsroot/mcclim/Backends/CLX/port.lisp	2006/02/06 08:51:02	1.120
@@ -467,6 +467,18 @@
     (xlib:destroy-window (port-lookup-mirror port sheet))
     (port-unregister-mirror port sheet (sheet-mirror sheet))))
 
+(defmethod raise-mirror ((port clx-port) (sheet basic-sheet))
+  (let ((mirror (sheet-mirror sheet)))
+    (when (and mirror
+	       (typep mirror 'xlib:window))
+      (xlib:circulate-window-up mirror))))
+
+(defmethod bury-mirror ((port clx-port) (sheet basic-sheet))
+  (let ((mirror (sheet-mirror sheet)))
+    (when (and mirror
+	       (typep mirror 'xlib:window))
+      (xlib:circulate-window-down mirror))))
+
 (defmethod mirror-transformation ((port clx-port) mirror)
   (make-translation-transformation (xlib:drawable-x mirror)
                                    (xlib:drawable-y mirror)))