Update of /project/eclipse/cvsroot/eclipse In directory clnet:/tmp/cvs-serv7563
Modified Files: misc.lisp Log Message: Fix: - screen-window-layer computation when the window doesn't have any workspace number associated with. - make-viewport-property has only one viewport since we don't handled multiple viewport.
--- /project/eclipse/cvsroot/eclipse/misc.lisp 2007/05/04 17:45:19 1.37 +++ /project/eclipse/cvsroot/eclipse/misc.lisp 2007/05/07 00:19:10 1.38 @@ -1,5 +1,5 @@ ;;; -*- Mode: Lisp; Package: ECLIPSE-INTERNALS -*- -;;; $Id: misc.lisp,v 1.37 2007/05/04 17:45:19 ihatchondo Exp $ +;;; $Id: misc.lisp,v 1.38 2007/05/07 00:19:10 ihatchondo Exp $ ;;; ;;; This file is part of Eclipse. ;;; Copyright (C) 2002 Iban HATCHONDO @@ -368,7 +368,7 @@ three layers (:_net_wm_state_below none :_net_wm_state_above) of the virtual screen that the given `window' argument belongs to. The given window will be filtered." - (loop with n = (if (eql i +any-desktop+) (current-desk) i) + (loop with n = (if (eql (or i +any-desktop+) +any-desktop+) (current-desk) i) for w in (screen-content n :skip-taskbar nil) for nwm-state = (netwm:net-wm-state w) unless (xlib:window-equal w window) @@ -454,7 +454,8 @@ rw :_eclipse_desktop_pointer_positions prop :CARDINAL 32))))
(defun make-viewport-property (n) - (make-list (* 2 n) :initial-element 0)) + (declare (ignore n)) + (make-list (* 2 1) :initial-element 0))
;;;; Geometry structure and accessors.