[sawfish] renamed tab-group-windows-index to tab-group-window-index

[Christopher Bratusek <chrisb src gnome org>]

commit c1ba6b11f8e8166b409a0a3ea1b4b46feebe5293
Author: Christopher Roy Bratusek <zanghar freenet de>
Date:   Fri Feb 18 21:51:39 2011 +0100

    renamed tab-group-windows-index to tab-group-window-index

 lisp/sawfish/wm/tabs/tabgroup.jl |    6 +++---
 lisp/sawfish/wm/workspace.jl     |    2 +-
 themes/StyleTab/theme.jl         |    4 ++--
 3 files changed, 6 insertions(+), 6 deletions(-)
---
diff --git a/lisp/sawfish/wm/tabs/tabgroup.jl b/lisp/sawfish/wm/tabs/tabgroup.jl
index f917de1..b4a74b5 100644
--- a/lisp/sawfish/wm/tabs/tabgroup.jl
+++ b/lisp/sawfish/wm/tabs/tabgroup.jl
@@ -29,7 +29,7 @@
             tab-find-window
             tab-rank
             tab-group-window-list
-            tab-group-windows-index
+            tab-group-window-index
             tab-group-window)
     
     (open rep
@@ -113,7 +113,7 @@
        (t
         (loop (+ index 1))))))
 
-  (define (tab-group-windows-index win)
+  (define (tab-group-window-index win)
     "Return the windows of the group containing win."
     (let* ((index (tab-window-group-index win))
            (wins (tab-group-window-list (nth index tab-groups))))
@@ -367,5 +367,5 @@ sticky, unsticky, fixed-position."
     (add-hook 'add-to-workspace-hook (lambda (win) (if (window-tabbed-p win) (tab-refresh-group win 'frame))))
     (add-hook 'destroy-notify-hook tab-delete-window-from-tab-groups))
 
-  (gaol-add tab-refresh-group tab-group-windows-index)
+  (gaol-add tab-refresh-group tab-group-window-index)
   )
diff --git a/lisp/sawfish/wm/workspace.jl b/lisp/sawfish/wm/workspace.jl
index f648c89..0cd92e2 100644
--- a/lisp/sawfish/wm/workspace.jl
+++ b/lisp/sawfish/wm/workspace.jl
@@ -700,7 +700,7 @@ a window"
                               w current-workspace)
                              current-workspace
                            (car (window-workspaces w))))
-             (wins (tab-group-windows-index w)))
+             (wins (tab-group-window-index w)))
          (when orig-space
            (mapcar (lambda (w)
                      (copy-window-to-workspace w orig-space space)) wins)
diff --git a/themes/StyleTab/theme.jl b/themes/StyleTab/theme.jl
index 4e3800e..ecc6380 100644
--- a/themes/StyleTab/theme.jl
+++ b/themes/StyleTab/theme.jl
@@ -262,7 +262,7 @@
 
 (define (rotate-tab src dest)
   (let ((w (current-event-window))
-        (wins (tab-group-windows-index (current-event-window)))
+        (wins (tab-group-window-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
@@ -405,7 +405,7 @@
 
 (define (f-type dest)
   (let ((w (current-event-window))
-        (wins (tab-group-windows-index (current-event-window)))
+        (wins (tab-group-window-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