[Eclipse-cvs] CVS eclipse
ihatchondo
ihatchondo at common-lisp.net
Fri May 11 12:28:41 UTC 2007
Update of /project/eclipse/cvsroot/eclipse
In directory clnet:/tmp/cvs-serv14965
Modified Files:
widgets.lisp
Log Message:
Fix: wm-size-hints might be nil.
--- /project/eclipse/cvsroot/eclipse/widgets.lisp 2007/05/07 13:22:50 1.48
+++ /project/eclipse/cvsroot/eclipse/widgets.lisp 2007/05/11 12:28:40 1.49
@@ -1,5 +1,5 @@
;;; -*- Mode: Lisp; Package: ECLIPSE-INTERNALS -*-
-;;; $Id: widgets.lisp,v 1.48 2007/05/07 13:22:50 ihatchondo Exp $
+;;; $Id: widgets.lisp,v 1.49 2007/05/11 12:28:40 ihatchondo Exp $
;;;
;;; ECLIPSE. The Common Lisp Window Manager.
;;; Copyright (C) 2000, 2001, 2002 Iban HATCHONDO
@@ -281,8 +281,8 @@
(defun fullscreenable-p (application)
(with-slots (window) application
(let ((hint (ignore-errors (xlib:wm-normal-hints window))))
- (symbol-macrolet ((max-w (xlib:wm-size-hints-max-width hint))
- (max-h (xlib:wm-size-hints-max-height hint)))
+ (symbol-macrolet ((max-h (and hint (xlib:wm-size-hints-max-height hint)))
+ (max-w (and hint (xlib:wm-size-hints-max-width hint))))
(and (if max-w (= max-w (screen-width)) t)
(if max-h (= max-h (screen-height)) t))))))
More information about the Eclipse-cvs
mailing list