Update of /project/eclipse/cvsroot/eclipse/lib In directory common-lisp.net:/tmp/cvs-serv19865 Modified Files: netwm-manager.lisp Log Message: more hacking. Date: Wed Nov 12 19:39:15 2003 Author: ihatchondo Index: eclipse/lib/netwm-manager.lisp diff -u eclipse/lib/netwm-manager.lisp:1.5 eclipse/lib/netwm-manager.lisp:1.6 --- eclipse/lib/netwm-manager.lisp:1.5 Wed Nov 12 19:10:04 2003 +++ eclipse/lib/netwm-manager.lisp Wed Nov 12 19:39:14 2003 @@ -1,5 +1,5 @@ ;;; -*- Mode: Lisp; Package: EXTENDED-WINDOW-MANAGER-HINTS -*- -;;; $Id: netwm-manager.lisp,v 1.5 2003/11/13 00:10:04 ihatchondo Exp $ +;;; $Id: netwm-manager.lisp,v 1.6 2003/11/13 00:39:14 ihatchondo Exp $ ;;; ;;; This is the CLX support for the managing with gnome. ;;; @@ -258,7 +258,7 @@ ;; _NET_SHOWING_DESKTOP (defun net-showing-desktop (window) - (zerop (the card-32 (first (get-property window :_NET_SHOWING_DESKTOP))))) + (= 1 (the card-32 (first (get-property window :_NET_SHOWING_DESKTOP))))) (defsetf net-showing-desktop (window) (mode-p) `(change-property ,window @@ -356,11 +356,7 @@ ;; _NET_WM_WINDOW_TYPE (defun net-wm-window-type (window) - (get-property - window - :_NET_WM_WINDOW_TYPE - :transform #'(lambda (id) - (xlib:atom-name (xlib:drawable-display window) id)))) + (get-atoms-property window :_NET_WM_WINDOW_TYPE t)) (defsetf net-wm-window-type (window &key (mode :replace)) (types) `(set-atoms-property ,window ,types :_NET_WM_WINDOW_TYPE :mode ,mode)) @@ -368,11 +364,7 @@ ;; _NET_WM_STATE (defun net-wm-state (window) - (get-property - window - :_NET_WM_STATE - :transform #'(lambda (id) - (xlib:atom-name (xlib:drawable-display window) id)))) + (get-atoms-property window :_NET_WM_STATE t)) (defsetf net-wm-state (window &key (mode :replace)) (states) `(set-atoms-property ,window ,states :_NET_WM_STATE :mode ,mode))