[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-serv30586/lib

Modified Files:
	netwm-manager.lisp 
Log Message:
a first try to implement net-wm-icon.

Date: Wed Nov 26 10:13:53 2003
Author: ihatchondo

Index: eclipse/lib/netwm-manager.lisp
diff -u eclipse/lib/netwm-manager.lisp:1.9 eclipse/lib/netwm-manager.lisp:1.10
--- eclipse/lib/netwm-manager.lisp:1.9	Thu Nov 20 19:04:08 2003
+++ eclipse/lib/netwm-manager.lisp	Wed Nov 26 10:13:46 2003
@@ -1,5 +1,5 @@
 ;;; -*- Mode: Lisp; Package: EXTENDED-WINDOW-MANAGER-HINTS -*-
-;;; $Id: netwm-manager.lisp,v 1.9 2003/11/21 00:04:08 ihatchondo Exp $
+;;; $Id: netwm-manager.lisp,v 1.10 2003/11/26 15:13:46 ihatchondo Exp $
 ;;;
 ;;; This is the CLX support for the managing with gnome.
 ;;;
@@ -415,10 +415,12 @@
 
 ;; _NET_WM_ICON
 
-;; FIXME:
 (defun net-wm-icon (window)
-  (declare (ignore window))
-  (values))
+  "Returnsa vector of possible icons for the client. This is an vector of
+  (unsigned-byte 32) ARGB with high byte being A, low byte being B. The
+  first two cardinals are width, height. Data is in rows, left to right
+  and top to bottom."
+  (get-property window :_NET_WM_ICON :result-type 'vector))
 
 ;; _NET_WM_HANDLED_ICONS