Update of /project/eclipse/cvsroot/eclipse In directory clnet:/tmp/cvs-serv3373

Modified Files: input.lisp wm.lisp Log Message: Fix: frame extents request handling and frame entents property on undecorate window.

--- /project/eclipse/cvsroot/eclipse/input.lisp 2008/04/28 12:29:38 1.50 +++ /project/eclipse/cvsroot/eclipse/input.lisp 2008/04/28 16:09:16 1.51 @@ -1,5 +1,5 @@ ;;; -*- Mode: Lisp; Package: ECLIPSE-INTERNALS -*- -;;; $Id: input.lisp,v 1.50 2008/04/28 12:29:38 ihatchondo Exp $ +;;; $Id: input.lisp,v 1.51 2008/04/28 16:09:16 ihatchondo Exp $ ;;; ;;; ECLIPSE. The Common Lisp Window Manager. ;;; Copyright (C) 2000, 2001, 2002 Iban HATCHONDO @@ -97,7 +97,8 @@ (event-process e (or (lookup-widget child) *root*))))))))

(defmethod event-process ((event client-message) window) - (when (xlib:window-p window) + (declare (ignorable window)) + (with-slots ((window event-window)) event (case (event-type event) (:_net_request_frame_extents (with-slots (left-margin right-margin top-margin bottom-margin) --- /project/eclipse/cvsroot/eclipse/wm.lisp 2008/04/25 16:02:49 1.55 +++ /project/eclipse/cvsroot/eclipse/wm.lisp 2008/04/28 16:09:16 1.56 @@ -1,5 +1,5 @@ ;;; -*- Mode: Lisp; Package: ECLIPSE-INTERNALS -*- -;;; $Id: wm.lisp,v 1.55 2008/04/25 16:02:49 ihatchondo Exp $ +;;; $Id: wm.lisp,v 1.56 2008/04/28 16:09:16 ihatchondo Exp $ ;;; ;;; ECLIPSE. The Common Lisp Window Manager. ;;; Copyright (C) 2000, 2001, 2002 Iban HATCHONDO @@ -711,6 +711,7 @@ (decore-application window application :map nil)) (update-lists application 1 *root*))) ((window-not-decorable-p window (application-type application)) + (setf (netwm:net-frame-extents window) (values 0 0 0 0)) (setf (wm-state window) 1) (xlib:map-window window)) (t (decore-application window application :map t)))