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