Update of /project/eclipse/cvsroot/eclipse In directory clnet:/tmp/cvs-serv27826
Modified Files: misc.lisp Log Message: Fix: the max sizes were not properly computed.
--- /project/eclipse/cvsroot/eclipse/misc.lisp 2007/05/04 08:26:14 1.36 +++ /project/eclipse/cvsroot/eclipse/misc.lisp 2007/05/04 17:45:19 1.37 @@ -1,5 +1,5 @@ ;;; -*- Mode: Lisp; Package: ECLIPSE-INTERNALS -*- -;;; $Id: misc.lisp,v 1.36 2007/05/04 08:26:14 ihatchondo Exp $ +;;; $Id: misc.lisp,v 1.37 2007/05/04 17:45:19 ihatchondo Exp $ ;;; ;;; This file is part of Eclipse. ;;; Copyright (C) 2002 Iban HATCHONDO @@ -333,11 +333,12 @@ (with-event-mask ((or parent win)) (when application ;; ensure width or height are compatible with wm-size-hints. - (multiple-value-bind (w h) - (geometry-sizes (find-max-geometry application 1 nil)) - (let* ((prop (netwm:net-wm-state win)) - (horz-p (member :_net_wm_state_maximized_horz prop)) - (vert-p (member :_net_wm_state_maximized_vert prop))) + (let* ((prop (netwm:net-wm-state win)) + (horz-p (member :_net_wm_state_maximized_horz prop)) + (vert-p (member :_net_wm_state_maximized_vert prop)) + (dir (if vert-p (if horz-p 1 2) 3))) + (multiple-value-bind (w h) + (geometry-sizes (find-max-geometry application dir nil)) (unless (member :_net_wm_state_fullscreen prop) (when width (setf width (if horz-p w (min width w)))) (when height (setf height (if vert-p h (min height h))))))))