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