[Eclipse-cvs] CVS eclipse

[ihatchondo]

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))))))))