Update of /project/eclipse/cvsroot/eclipse/lib In directory common-lisp.net:/tmp/cvs-serv6846
Modified Files: netwm-manager.lisp Log Message: net-wm-allowed-actions now use get-atoms-property.
Date: Wed Nov 12 19:10:07 2003 Author: ihatchondo
Index: eclipse/lib/netwm-manager.lisp diff -u eclipse/lib/netwm-manager.lisp:1.4 eclipse/lib/netwm-manager.lisp:1.5 --- eclipse/lib/netwm-manager.lisp:1.4 Wed Nov 12 19:03:50 2003 +++ eclipse/lib/netwm-manager.lisp Wed Nov 12 19:10:04 2003 @@ -1,5 +1,5 @@ ;;; -*- Mode: Lisp; Package: EXTENDED-WINDOW-MANAGER-HINTS -*- -;;; $Id: netwm-manager.lisp,v 1.4 2003/11/13 00:03:50 ihatchondo Exp $ +;;; $Id: netwm-manager.lisp,v 1.5 2003/11/13 00:10:04 ihatchondo Exp $ ;;; ;;; This is the CLX support for the managing with gnome. ;;; @@ -450,11 +450,7 @@ ;; list indicate actions that are not supported for this window.
(defun net-wm-allowed-actions (window) - (get-property - window - :_NET_WM_ALLOWED_ACTIONS - :transform #'(lambda (id) - (xlib:atom-name (xlib:drawable-display window) id)))) + (get-atoms-property window :_NET_WM_ALLOWED_ACTIONS t))
(defsetf net-wm-allowed-actions (window &key (mode :replace)) (actions) `(set-atoms-property ,window ,actions :_NET_WM_ALLOWED_ACTIONS :mode ,mode))