[sawfish] fixed a regression in tab-groups

[Christopher Bratusek <chrisb src gnome org>]

commit c547dfc06436497e75bd19fad8995df20eeb50c6
Author: Christopher Roy Bratusek <zanghar freenet de>
Date:   Sat Dec 18 10:29:45 2010 +0100

    fixed a regression in tab-groups

 ChangeLog                        |    8 ++++++++
 lisp/sawfish/wm/tabs/tabgroup.jl |   21 ++++++++++++++-------
 2 files changed, 22 insertions(+), 7 deletions(-)
---
diff --git a/ChangeLog b/ChangeLog
index 2211989..78bac58 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+2010-12-18  Christopher Bratusek <zanghar freenet de>
+	* lisp/sawfish/wm/tabs/tabgroup.jl: fixed a regression that made all
+	windows in the group {un,}sticky when one became [fuchur]
+
+2010-12-17  Christopher Bratusek <zanghar freenet de>
+	* debian/control.in:â??make debian packaging scripts compatible with
+	Debian/Experimental
+
 2010-12-09  Christopher Bratusek <zanghar freenet de>
 	* configure.in
 	* lisp/sawfish/cfg/Makefile.in: fix installation for non-root-users by
diff --git a/lisp/sawfish/wm/tabs/tabgroup.jl b/lisp/sawfish/wm/tabs/tabgroup.jl
index 38135f9..299d2c3 100644
--- a/lisp/sawfish/wm/tabs/tabgroup.jl
+++ b/lisp/sawfish/wm/tabs/tabgroup.jl
@@ -190,6 +190,14 @@
               (mapcar (lambda (w)
                         (uniconify-window w)
                         (rebuild-frame w)) wins))
+             ((eq prop 'sticky)
+              (mapcar (lambda (w)
+                        (make-window-sticky w)
+                        (rebuild-frame w)) wins))
+             ((eq prop 'unsticky)
+              (mapcar (lambda (w)
+                        (make-window-unsticky w)
+                        (rebuild-frame w)) wins))
              ((eq prop 'shade)
               (mapcar (lambda (w)
                         (shade-window w)
@@ -279,17 +287,16 @@
              (lambda (w) (eq w win))
              (tab-group-window-list (tab-find-window win)))) )
 
-  (define (tab-group-sticky w)
-    (if (window-get w 'sticky)
-        (make-group-sticky w)
-      (make-group-unsticky w)))
+  (define (tab-group-sticky win)
+    (if (window-get win 'sticky)
+        (tab-refresh-group win 'sticky)
+      (tab-refresh-group win 'unsticky)))
 
   (unless batch-mode
     (add-hook 'window-state-change-hook
               (lambda (win args)
-                (when (= '(sticky) args)
-                  (tab-group-sticky win)
-                  (tab-refresh-group win 'frame))))
+                (if (= '(sticky) args)
+                  (tab-group-sticky win))))
     (add-hook 'window-state-change-hook
               (lambda (win args)
                 (if (= '(fixed-position) args)