[Eclipse-cvs] CVS update: eclipse/input.lisp

[Iban Hatchondo]

Update of /project/eclipse/cvsroot/eclipse
In directory common-lisp.net:/tmp/cvs-serv22610

Modified Files:
	input.lisp 
Log Message:
minor change in undecore-application and the handling of configure-notify.


Date: Thu Oct  9 07:38:18 2003
Author: ihatchondo

Index: eclipse/input.lisp
diff -u eclipse/input.lisp:1.18 eclipse/input.lisp:1.19
--- eclipse/input.lisp:1.18	Mon Oct  6 13:57:26 2003
+++ eclipse/input.lisp	Thu Oct  9 07:38:18 2003
@@ -1,5 +1,5 @@
 ;;; -*- Mode: Lisp; Package: ECLIPSE-INTERNALS -*-
-;;; $Id: input.lisp,v 1.18 2003/10/06 17:57:26 ihatchondo Exp $
+;;; $Id: input.lisp,v 1.19 2003/10/09 11:38:18 ihatchondo Exp $
 ;;;
 ;;; ECLIPSE. The Common Lisp Window Manager.
 ;;; Copyright (C) 2000, 2001, 2002 Iban HATCHONDO
@@ -75,7 +75,8 @@
     ;; Acording to the ICCCM we should send a synthetic configure-notify,
     ;; when we move a window but without resizing it.
     (unless (or (logbitp 2 value-mask) (logbitp 3 value-mask))
-      (send-configuration-notify window))
+      (when (application-p (lookup-widget window))
+	(send-configuration-notify window)))
     ))
 
 (defmethod event-process :after ((event destroy-notify) (widget base-widget))
@@ -222,12 +223,13 @@
   (when (application-p (lookup-widget (event-window event)))
     (with-slots ((master-win event-window) (app-window window) x y) event
       (with-slots (left-margin top-margin) (decoration-frame-style master)
-	(multiple-value-bind (old-x old-y) (window-position app-window)
-	  (when (eql (decoration-application-gravity master) :static)
-	    (decf x left-margin) (decf y top-margin))
-	  (unless (= old-x left-margin) (setf (xlib:drawable-x master-win) x))
-	  (unless (= old-y top-margin) (setf (xlib:drawable-y master-win) y)))
-	  (resize-from (lookup-widget app-window))
+	(if (eql (decoration-application-gravity master) :static)
+	    (setf (window-position master-win) (values (- x left-margin)
+						       (- y top-margin)))
+	    (multiple-value-bind (ax ay) (window-position app-window)
+	      (unless (= ax left-margin) (setf (xlib:drawable-x master-win) x))
+	      (unless (= ay top-margin) (setf (xlib:drawable-y master-win) y))))
+	(resize-from (lookup-widget app-window))
 	(with-event-mask (master-win)
 	  (update-edges-geometry master)
 	  (setf (window-position app-window) (values left-margin top-margin))