[Eclipse-cvs] CVS eclipse
ihatchondo
ihatchondo at common-lisp.net
Fri May 4 17:45:19 UTC 2007
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))))))))
More information about the Eclipse-cvs
mailing list