[Eclipse-cvs] CVS update: eclipse/widgets.lisp

[Iban Hatchondo]

Update of /project/eclipse/cvsroot/eclipse
In directory common-lisp.net:/tmp/cvs-serv11742

Modified Files:
	widgets.lisp 
Log Message:
fix misplaced ignore-errors declarations.


Date: Sat Nov  8 14:54:13 2003
Author: ihatchondo

Index: eclipse/widgets.lisp
diff -u eclipse/widgets.lisp:1.18 eclipse/widgets.lisp:1.19
--- eclipse/widgets.lisp:1.18	Sat Nov  1 04:41:49 2003
+++ eclipse/widgets.lisp	Sat Nov  8 14:54:13 2003
@@ -1,5 +1,5 @@
 ;;; -*- Mode: Lisp; Package: ECLIPSE-INTERNALS -*-
-;;; $Id: widgets.lisp,v 1.18 2003/11/01 09:41:49 ihatchondo Exp $
+;;; $Id: widgets.lisp,v 1.19 2003/11/08 19:54:13 ihatchondo Exp $
 ;;;
 ;;; ECLIPSE. The Common Lisp Window Manager.
 ;;; Copyright (C) 2000, 2001, 2002 Iban HATCHONDO
@@ -304,7 +304,7 @@
 	    (when desktop-p
 	      (pushnew :_net_wm_state_sticky netwm-state)
 	      (add-desktop-application *root* app)
-	      (setf (window-priority window prec-desk) stack-mode))
+	      (setf (xlib:window-priority window prec-desk) stack-mode))
 	    (setf (netwm:net-wm-state window) netwm-state
 		  (window-desktop-num window) +any-desktop+))
 	  (grab-button window :any '(:button-press) :sync-pointer-p t))
@@ -566,9 +566,10 @@
   (with-slots (window icon gcontext) application
     (let ((background (clx-ext::wm-hints-icon-pixmap window))
 	  (width 45) (height 20))
-      (if (typep background 'xlib:pixmap)
-	  (multiple-value-setq (width height) (drawable-sizes background))
-	  (setf background nil))
+      (ignore-errors
+	(if (typep background 'xlib:pixmap)
+	    (multiple-value-setq (width height) (drawable-sizes background))
+	    (setf background nil)))
       (ignore-errors
 	(when (and background (= 1 (xlib:drawable-depth background)))
 	  (let ((pix (xlib:create-pixmap