[sawfish] StyleTab: replace move-window-to by tab-group-window-index

[Christopher Bratusek <chrisb src gnome org>]

commit 7eb17ab3b7454d8e619bf9a43aced78af6f439d9
Author: Christopher Roy Bratusek <zanghar freenet de>
Date:   Fri Feb 18 21:50:29 2011 +0100

    StyleTab: replace move-window-to by tab-group-window-index

 themes/StyleTab/theme.jl |   30 ++++++++++++++----------------
 1 files changed, 14 insertions(+), 16 deletions(-)
---
diff --git a/themes/StyleTab/theme.jl b/themes/StyleTab/theme.jl
index 181c3ff..4e3800e 100644
--- a/themes/StyleTab/theme.jl
+++ b/themes/StyleTab/theme.jl
@@ -262,6 +262,7 @@
 
 (define (rotate-tab src dest)
   (let ((w (current-event-window))
+        (wins (tab-group-windows-index (current-event-window)))
         pos-x pos-y fdim framew framehigh dim-x dim-y current-title type)
     (if (not (window-get w 'title-position))
         (case styletab:titlebar-place
@@ -321,16 +322,14 @@
           (when (>= (+ pos-y dim-y styletab:title-dimension framew) (screen-height))
             (setq pos-y (- (screen-height) dim-y styletab:title-dimension framew)))
           (when (<= pos-y 0) (setq pos-y 0))))
-      
-      (window-put w 'title-position dest)
+
+      (mapcar (lambda (w)
+                (window-put w 'title-position dest)) wins)
       (call-window-hook 'window-state-change-hook w (list '(title-position)))
-      (reframe-window w)
-      (move-window-to w pos-x pos-y)
-      (resize-window-to w dim-x dim-y)
-      (when (window-get w 'tabbed)
-        (tab-refresh-group w 'title-position)
-        (tab-refresh-group w 'reframe)
-        (tab-refresh-group w 'move)))))
+      (mapcar (lambda (w)
+                (reframe-window w)
+                (move-window-to w pos-x pos-y)
+                (resize-window-to w dim-x dim-y)) wins))))
 
 (define (tabbar-to-top)
   "Move tab-bar to top."
@@ -406,6 +405,7 @@
 
 (define (f-type dest)
   (let ((w (current-event-window))
+        (wins (tab-group-windows-index (current-event-window)))
         pos-x pos-y dim-x dim-y cur new current-title)
     (if (not (window-get w 'title-position))
         (case styletab:titlebar-place
@@ -508,13 +508,11 @@
             (setq dim-y (- dim-y styletab:title-dimension))
           (setq dim-x (- dim-x styletab:title-dimension)))))
     (when (not (eq cur new))
-      (window-put w 'type new)
-      (reframe-window w)
-      (move-window-to w pos-x pos-y)
-      (resize-window-to w dim-x dim-y)
-      (when (window-get w 'tabbed)
-        (tab-refresh-group w 'type)
-        (tab-refresh-group w 'move)))))
+      (mapcar (lambda (w)
+                (window-put w 'type new)
+                (reframe-window w)
+                (move-window-to w pos-x pos-y)
+                (resize-window-to w dim-x dim-y)) wins))))
 
 (define (set-frame-default-and-default/transient-toggle)
   "Set frametype default and toggle default/transient with resize"