[Eclipse-cvs] CVS eclipse

[ihatchondo]

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

Modified Files:
	misc.lisp 
Log Message:
Fix: find-empty might return nil ...

--- /project/eclipse/cvsroot/eclipse/misc.lisp	2009/02/23 00:00:35	1.44
+++ /project/eclipse/cvsroot/eclipse/misc.lisp	2009/11/04 19:24:59	1.45
@@ -1,5 +1,5 @@
 ;;; -*- Mode: Lisp; Package: ECLIPSE-INTERNALS -*-
-;;; $Id: misc.lisp,v 1.44 2009/02/23 00:00:35 ihatchondo Exp $
+;;; $Id: misc.lisp,v 1.45 2009/11/04 19:24:59 ihatchondo Exp $
 ;;;
 ;;; This file is part of Eclipse.
 ;;; Copyright (C) 2002 Iban HATCHONDO
@@ -400,10 +400,11 @@
 	  nconc (multiple-value-bind (ulx uly llx lly)
 		    (multiple-value-bind (w h) (drawable-sizes window)
 		      (rectangle-coordinates
-		          (car (find-empty-rectangles
-				   (make-rectangle :lrx w :lry h)
-				   (find-all-panel-rectangles i)
-				   #'rectangle-surface>=))))
+                          (or (car (find-empty-rectangles
+				       (make-rectangle :lrx w :lry h)
+                                       (find-all-panel-rectangles i)
+                                       #'rectangle-surface>=))
+                              (window->rectangle window))))
 		  (list ulx uly (- llx ulx) (- lly uly)))
 	  into workareas
 	  finally (xlib:change-property