[sawfish] make `rename-window' also change (_NET_)WM_ICON_NAME
- From: Christopher Bratusek <chrisb src gnome org>
- To: svn-commits-list gnome org
- Cc:
- Subject: [sawfish] make `rename-window' also change (_NET_)WM_ICON_NAME
- Date: Sat, 19 Sep 2009 11:17:59 +0000 (UTC)
commit 4d4585f8ac352488fa5669aedde0aa2abf4b09f6
Author: chrisb <zanghar freenet de>
Date: Sat Sep 19 13:16:59 2009 +0200
make `rename-window' also change (_NET_)WM_ICON_NAME
ChangeLog | 2 ++
lisp/sawfish/wm/ext/match-window.jl | 4 +++-
2 files changed, 5 insertions(+), 1 deletions(-)
---
diff --git a/ChangeLog b/ChangeLog
index febd6b0..2875579 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -10,6 +10,8 @@
* man/news.texi: updated
+ * lisp/sawfish/wm/ext/match-window: make `rename-window' also change (_NET_)WM_ICON_NAME
+
2009-09-15 Christopher Bratusek <zanghar freenet de>
* lisp/sawfish/wm/util/prompt-extras.jl: fixed a newly introduced bug [Matthew Love]
diff --git a/lisp/sawfish/wm/ext/match-window.jl b/lisp/sawfish/wm/ext/match-window.jl
index b8e05ac..0074234 100644
--- a/lisp/sawfish/wm/ext/match-window.jl
+++ b/lisp/sawfish/wm/ext/match-window.jl
@@ -494,7 +494,9 @@
(define (rename-window-func window new-name)
(set-x-text-property window 'WM_NAME (vector new-name))
- (set-x-text-property window '_NET_WM_NAME (vector new-name)))
+ (set-x-text-property window '_NET_WM_NAME (vector new-name))
+ (set-x-text-property window 'WM_ICON_NAME (vector new-name))
+ (set-x-text-property window '_NET_WM_ICON_NAME (vector new-name)))
(define (rename-window-interactive w)
(let ((new-name (prompt-for-string "Enter new window title:" (window-name w))))
[
Date Prev][
Date Next] [
Thread Prev][
Thread Next]
[
Thread Index]
[
Date Index]
[
Author Index]