[sawfish] then pressing the lock-button also do a state-change

[Christopher Bratusek <chrisb src gnome org>]

commit 1504eba2e8a2e74d6484332a2890216739078e73
Author: Christopher Roy Bratusek <zanghar freenet de>
Date:   Wed Feb 17 23:52:47 2010 +0100

    then pressing the lock-button also do a state-change

 ChangeLog                  |    3 +++
 lisp/sawfish/wm/keymaps.jl |    6 +++++-
 man/news.texi              |   13 +++++++++++++
 3 files changed, 21 insertions(+), 1 deletions(-)
---
diff --git a/ChangeLog b/ChangeLog
index 0d928ad..24e41ca 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,6 @@
+2010-02-17  Christopher Bratusek <zanghar freenet de>
+	* lisp/sawfish/wm/keymaps.jl: then pressing the lock-button also do a state-change [Fuchur]
+
 2010-02-16  Christopher Bratusek <zanghar freenet de>
 	* configure.in: post-release versionbump to 1.6.3 "Hava Nagila"
 
diff --git a/lisp/sawfish/wm/keymaps.jl b/lisp/sawfish/wm/keymaps.jl
index da44f17..32552ee 100644
--- a/lisp/sawfish/wm/keymaps.jl
+++ b/lisp/sawfish/wm/keymaps.jl
@@ -193,12 +193,16 @@ of a window. (Only mouse-bindings are evaluated in this map.)"
 			(lambda ()
 				(if (window-get (current-event-window) 'fixed-position)
 					(window-put (current-event-window) 'fixed-position nil)
-					(window-put (current-event-window) 'fixed-position t)))))
+					(window-put (current-event-window) 'fixed-position t))
+                  (call-window-hook 'window-state-change-hook (current-event-window) (list '(fixed-position))))))
+
+
     "Keymap containing bindings active when the pointer is in the lock button
 of a window. (Only mouse-bindings are evaluated in this map.)"
     :group bindings
     :type keymap)
 
+
   (defcustom rename-button-keymap (bind-keys (make-keymap)
 				   "Button1-Off" 'rename-window)
     "Keymap containing bindings active when the pointer is in the rename button
diff --git a/man/news.texi b/man/news.texi
index 6511be3..f9d0677 100644
--- a/man/news.texi
+++ b/man/news.texi
@@ -9,6 +9,19 @@ they occurred between. For more detailed information see the
 @file{ChangeLog} file in the Sawfish source tree, or git log.
 (See Wiki page for how to access git repository.)
 
+ heading 1.6.3 "Hava Nagila"
+
+ itemize @bullet
+
+ item The 1.6.3 release has some improvements.
+
+ item Other Changes
+ itemize @minus
+ item Then pressing the lock-button also do a state-change of the window
+accordingly. [Fuchur]
+ end itemize
+ end itemize
+
 @heading 1.6.2 "Mighty Disco King"
 
 @itemize @bullet