[sawfish] make `rename-window' also change (_NET_)WM_ICON_NAME



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]