Re: [Sawfish] Patch to save memory and speed up StyleTab

[ Thread Index | Date Index | More lists.tuxfamily.org/sawfish Archives ]


-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

- -----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

Hi,

On Tue, 6 May 2014 18:11:15 +0200
wrote fuchur <flohtransporter@xxxxxxxxx>:

Patch 13-tab-tiler-add.patch:

Changes:

If the cabinet interface larger as the screen height, display the top
from cabinet not outside from the screen.

Apply the patch after all other patches from this thread.

- - -- 
Regards,
Fuchur

GPG Fingerprint: CA3B 8204 5B3E 6D48 6D53  C116 E5BC 70D5 B8D7 B2B0
- -----BEGIN PGP SIGNATURE-----
Version: GnuPG v2.0.22 (GNU/Linux)

iEYEARECAAYFAlNqVt8ACgkQ5bxw1bjXsrDB9gCfaeI32O6xs+lxRb5Td1WdAYA0
KjUAoIUDU+JZu8nBYrUEjFPBhwoTfR6o
=a7le
- -----END PGP SIGNATURE-----
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v2.0.22 (GNU/Linux)

iEYEARECAAYFAlNqV30ACgkQ5bxw1bjXsrAfwgCfb5+GmKaKlgjP5mSwbWIOEcdx
W5EAn0hyTM8cUjL8gnspbiNhzesVusjk
=kzQF
-----END PGP SIGNATURE-----
diff -urNad sawfish.orgi/lisp/sawfish/wm/ext/cabinet.jl sawfish/lisp/sawfish/wm/ext/cabinet.jl
--- sawfish.orgi/lisp/sawfish/wm/ext/cabinet.jl
+++ sawfish/lisp/sawfish/wm/ext/cabinet.jl
@@ -502,9 +502,11 @@
                                      (- (quotient (car (head-dimensions head)) 2)
                                         (quotient wx 2)))
                                  .
-                                 ,(+ (cdr (head-offset head))
-                                     (- (quotient (cdr (head-dimensions head)) 2)
-                                        (quotient wy 2))))
+                                 ,(if (> (cdr win-size) (cdr (head-dimensions head)))
+                                      '0
+                                    (+ (cdr (head-offset head))
+                                       (- (quotient (cdr (head-dimensions head)) 2)
+                                          (quotient wy 2)))))
                                win-size
                                1
                                `((background . ,cabinet:background))


Mail converted by MHonArc 2.6.19+ http://listengine.tuxfamily.org/