[Eclipse-cvs] CVS eclipse

[ihatchondo]

Update of /project/eclipse/cvsroot/eclipse
In directory cl-net:/tmp/cvs-serv29446

Modified Files:
	rectangles.lisp 
Log Message:
Fix: struts properties might not be set yet.

--- /project/eclipse/cvsroot/eclipse/rectangles.lisp	2009/11/05 15:10:02	1.9
+++ /project/eclipse/cvsroot/eclipse/rectangles.lisp	2009/11/05 19:22:58	1.10
@@ -1,5 +1,5 @@
 ;;; -*- Mode: Lisp; Package: ECLIPSE-INTERNALS -*-
-;;; $Id: rectangles.lisp,v 1.9 2009/11/05 15:10:02 ihatchondo Exp $
+;;; $Id: rectangles.lisp,v 1.10 2009/11/05 19:22:58 ihatchondo Exp $
 ;;;
 ;;; This file is part of Eclipse.
 ;;; Copyright (C) 2003 Iban HATCHONDO
@@ -180,11 +180,12 @@
           ;; Also note that those value are card32 but the rest of the 
           ;; computation is done in int16. This should be fixed, otherwise
           ;; resolution greater than 32765 might lead to type errors.
-          (when (> lsy ley) (setf lsy 0))
-          (when (> rsy rey) (setf rsy 0))
-          (when (> tsx tex) (setf tsx 0))
-          (when (> bsx bex) (setf bsx 0))
-	  (multiple-value-bind (x y w h)
+          (when l
+            (when (> lsy ley) (setf lsy 0))
+            (when (> rsy rey) (setf rsy 0))
+            (when (> tsx tex) (setf tsx 0))
+            (when (> bsx bex) (setf bsx 0)))
+          (multiple-value-bind (x y w h)
               (window->rectangle-coordinates (xlib:drawable-root win))
             (declare (ignorable x y))
 	    (unless l