-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
Hi,
On Sun, 20 Apr 2014 08:43:42 +0200
wrote Christopher Roy Bratusek <[email protected]>:
>looks good, I'm gonna test a bit more before commiting.
>
>I found the cause for the errors when closing a tabbed window: it
>happens when you tab two instances of the same application. Tab two
>instances of SawfishConfig, close one = error. Must be because WM_*
>stuff is identical to both.
>
>Regards,
>Chris
Can't reproduces this. Testet with my settings and with a empty
~/.sawfish. If you want that i do more test send me your
~/.sawfish/custom and ~/.sawfish/sawfishrc
Also add a patch (09-tab-tiler-add.patch) by this mail.
Changes:
Disable raise-windows-on-focus by tabs if it not set in sawfish-config.
- --
Regards,
Fuchur
GPG Fingerprint: CA3B 8204 5B3E 6D48 6D53 C116 E5BC 70D5 B8D7 B2B0
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v2.0.22 (GNU/Linux)
iEYEARECAAYFAlNTrYgACgkQ5bxw1bjXsrBLfACaA42BfmMCK6LmDMVdr2vtKvzY
Ys4AoJUmUoh+lXpHo85vRWXtulmjQTpY
=MQCo
-----END PGP SIGNATURE-----
diff -urNad lisp.orgi/sawfish/wm/tabs/tabgroup.jl lisp/sawfish/wm/tabs/tabgroup.jl
--- lisp.orgi/sawfish/wm/tabs/tabgroup.jl
+++ lisp/sawfish/wm/tabs/tabgroup.jl
@@ -607,11 +607,11 @@
(nth 1 (frame-style-tabbars-support win)))))
(case current-pos
((top) (warp-cursor (+ (car (window-position win)) start-right (nth 4 tab-pos-list) (quotient (nth 6 tab-pos-list) 2))
- (+ (quotient (- (cdr (window-frame-dimensions win)) (cdr (window-dimensions win)) 2) 2) (cdr (window-position win)))))
+ (+ (quotient (- (cdr (window-frame-dimensions win)) (cdr (window-dimensions win)) 4) 2) (cdr (window-position win)))))
((bottom) (warp-cursor (+ (car (window-position win)) start-right (nth 4 tab-pos-list) (quotient (nth 6 tab-pos-list) 2))
(+ (quotient (- (cdr (window-frame-dimensions win)) (cdr (window-dimensions win))) 2)
- (cdr (window-position win)) (cdr (window-dimensions win)) 2)))
- ((left) (warp-cursor (+ (quotient (- (car (window-frame-dimensions win)) (car (window-dimensions win)) 2) 2) (car (window-position win)))
+ (cdr (window-position win)) (cdr (window-dimensions win)))))
+ ((left) (warp-cursor (+ (quotient (- (car (window-frame-dimensions win)) (car (window-dimensions win)) 4) 2) (car (window-position win)))
(- (+ (cdr (window-position win)) (cdr (window-dimensions win))) start-right (nth 7 tab-pos-list)
(quotient (nth 9 tab-pos-list) 2))))
((right) (warp-cursor (+ (quotient (- (car (window-frame-dimensions win)) (car (window-dimensions win))) 2)
@@ -645,7 +645,7 @@
(define timer-raise nil)
(define (focus-in-tab win)
- (let ((timer-wait (if raise-windows-on-focus raise-window-timeout '500)))
+ (let ((timer-wait (if raise-windows-on-focus raise-window-timeout '1)))
(if (or (eq focus-mode 'click)
(eq (window-get win 'focus-mode) 'click))
(setq timer-wait '1))
