Re: ** to GIT source users ** Some incompatibility in "StyleTab"

[Christopher Roy Bratusek <nano tuxfamily org>]

On Monday 21 February 2011 20:50:49 Christopher Roy Bratusek wrote:
> On Monday 21 February 2011 20:41:40 fuchur wrote:
> > Hi,
> > 
> > On Mon, 21 Feb 2011 20:30:44 +0100
> > 
> > wrote Christopher Roy Bratusek <nano tuxfamily org>:
> > >I'll test it right now. One more thing: when you cycle through windows
> > >via Alt+Tab or select it from the window-group, do the other tabs raise
> > >accordingly? They don't on my system.
> > >
> > >(Not that a big deal, just wanted to know, whether my settings influence
> > >it).
> > 
> > Have you select this. Here i have no problems.
> 
> That doesn't help, but enabling "tabs-raise-on-hover", does fix it.
> 
> Chris

What about this? The change in beos-window-menu.jl seems fine, but I'm somewhat 
unsure about the one in x-cycle.jl...

diff --git a/lisp/sawfish/wm/commands/x-cycle.jl b/lisp/sawfish/wm/commands/x-cycle.jl
index 5400fd6..2fff01b 100644
--- a/lisp/sawfish/wm/commands/x-cycle.jl
+++ b/lisp/sawfish/wm/commands/x-cycle.jl
@@ -203,10 +203,15 @@
       (move-viewport-to-window win)
       (when (window-get win 'iconified)
         (show-window win))
-      (when cycle-raise-windows
-        (fluid-set x-cycle-stacking (stacking-order))
-        (raise-window* win)
-	(warp-pointer-if-necessary win))
+      (require 'sawfish.wm.tabs.tabgroup)
+      (if (and cycle-raise-windows
+	       (not (window-tabbed-p win)))
+          (progn
+	    (fluid-set x-cycle-stacking (stacking-order))
+            (raise-window* win)
+	    (warp-pointer-if-necessary win))
+	(when (window-tabbed-p win)
+	  (tab-refresh-group win 'raise)))
       (when cycle-show-window-names
         (cycle-display-message))
       (when (window-really-wants-input-p win)
diff --git a/lisp/sawfish/wm/ext/beos-window-menu.jl b/lisp/sawfish/wm/ext/beos-window-menu.jl
index 2dd2e28..915ecdc 100644
--- a/lisp/sawfish/wm/ext/beos-window-menu.jl
+++ b/lisp/sawfish/wm/ext/beos-window-menu.jl
@@ -59,7 +59,10 @@
     (list (make-label w)
 	  (lambda ()
 	    (when (windowp w)
-	      (display-window w)))
+	      (require 'sawfish.wm.tabs.tabgroup)
+	      (if (window-tabbed-p w)
+		  (tab-refresh-group w 'raise)
+	        (display-window w))))
 	  (cons 'check (and (eq (input-focus) w)))
 	  '(group . beos-window-menu)))