[Eclipse-cvs] CVS update: eclipse/lib/netwm-manager.lisp

[Iban Hatchondo]

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))