Re: Patch to save memory and speed up StyleTab
fuchur <[email protected]>
| Newsgroups | gmane.comp.window-managers.sawfish |
|---|---|
| Organization | W.W |
| Message-ID | <[email protected]> |
-----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-----
09-tab-tiler-add.patch
(text/x-patch, 2.2 KB)
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))