Commit 4f5ecba3 authored by Iban Hatchondo's avatar Iban Hatchondo
Browse files

a first try to implement net-wm-icon.

parent 4b4de85e
;;; -*- Mode: Lisp; Package: EXTENDED-WINDOW-MANAGER-HINTS -*-
;;; $Id: netwm-manager.lisp,v 1.8 2003/11/20 23:48:54 ihatchondo Exp $
;;; $Id: netwm-manager.lisp,v 1.9 2003/11/21 00:04:08 ihatchondo Exp $
;;;
;;; This is the CLX support for the managing with gnome.
;;;
......@@ -415,10 +415,12 @@ In order to use it, you should first call intern-atoms to be sure all
;; _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
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment