[Sawfish] Re: Add new window as tab patch

[fuchur <flohtransporter@xxxxxxxxx>]

Hi,

On Mon, 26 Mar 2012 14:39:54 +0200
wrote fuchur <flohtransporter@xxxxxxxxx>:

>Hi,
>
>On Mon, 26 Mar 2012 04:01:26 +0200
>wrote fuchur <flohtransporter@xxxxxxxxx>:
>
>>Hi,
>>
>>Here is a patch to add a new window as tab if have one (the first
>>created if more as one) of the windows the same 'tab-group property".
>>'tab-group property can set by window-rules and also save in
>>window-history. You can choose between 12 tab-groups. If you know how
>>to grow Tab groups or "automatically" update (maybe by window-names) in
>>window-rules please send a patch. 
>>
>
>Here is the same patch as above but with some bugfix.
>Need more tester/ing.
>

Here is a patch/fix that uniconified the "tab-group" if "iconified"

--
Regards,
Fuchur

GPG Fingerprint: CA3B 8204 5B3E 6D48 6D53  C116 E5BC 70D5 B8D7 B2B0

--- /usr/share/sawfish/lisp/sawfish/wm/tabs/tabgroup.jl.orgi	2012-03-27 18:42:22.000000000 +0200
+++ /usr/share/sawfish/lisp/sawfish/wm/tabs/tabgroup.jl	2012-03-27 02:48:18..000000000 +0200
@@ -276,9 +276,11 @@
             (setq release-window t)
             (tab-delete-window-from-tab-groups w)
             (setq release-window nil))
+          (if (window-get win 'iconified) (uniconify-window win))
+          (if (window-get win 'shaded) (unshade-window win))
           (setq tab-refresh-lock nil)
+          (if (window-get w 'iconified) (uniconify-window w))
           (if (window-get w 'shaded) (unshade-window w))
-          (if (window-get win 'shaded) (unshade-window win))
           (window-put w 'frame-style group-frame-style)
           (window-put w 'type group-frame-type)
           (window-put w 'focus-mode group-frame-focus-mode)

Attachment: signature.asc
Description: PGP signature