[Eclipse-cvs] CVS eclipse

[ihatchondo]

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