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)))