[Eclipse-cvs] CVS eclipse

[ihatchondo]

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