Hi, On Mon, 7 Feb 2011 20:38:19 +0100 wrote Christopher Roy Bratusek <nano tuxfamily org>: >Dark and DarkColor are somewhat blurry now... could you fix it? It seems scaled a image/button makes it blurry. Please try this patch. -- Regards, Fuchur GPG Fingerprint: CA3B 8204 5B3E 6D48 6D53 C116 E5BC 70D5 B8D7 B2B0
diff -urNad sawfish-git-9999.orgi/themes/StyleTab/theme.jl sawfish-git-9999/themes/StyleTab/theme.jl --- sawfish-git-9999.orgi/themes/StyleTab/theme.jl 2011-02-07 22:02:51.000000000 +0100 +++ sawfish-git-9999/themes/StyleTab/theme.jl 2011-02-07 22:03:39.000000000 +0100 @@ -928,22 +928,14 @@ (define bottom-right-corner-shaped-images (lambda (w) (make-border-image (concat w "-frame-bottom-right-corner-shaped")))) -(define (get-button-image img) - (or - (table-ref icon-cache img) - (let ((image - (scale-image (make-image img) styletab:title-dimension (+ styletab:title-dimension (button-width-custom))))) - (table-set icon-cache img image) - image))) - (define make-button-image (lambda (w) - `((focused . ,(get-button-image (concat (symbol-name styletab:style) "/" w "-f.png"))) - (highlighted . ,(get-button-image (concat (symbol-name styletab:style) "/" w "-h.png"))) - (clicked . ,(get-button-image (concat (symbol-name styletab:style) "/" w "-c.png"))) - (inactive . ,(get-button-image (concat (symbol-name styletab:style) "/" w "-i.png"))) - (inactive-highlighted . ,(get-button-image (concat (symbol-name styletab:style) "/" w "-ih.png"))) - (inactive-clicked . ,(get-button-image (concat (symbol-name styletab:style) "/" w "-ic.png")))))) + `((focused . ,(get-frame-image (concat (symbol-name styletab:style) "/" w "-f.png"))) + (highlighted . ,(get-frame-image (concat (symbol-name styletab:style) "/" w "-h.png"))) + (clicked . ,(get-frame-image (concat (symbol-name styletab:style) "/" w "-c.png"))) + (inactive . ,(get-frame-image (concat (symbol-name styletab:style) "/" w "-i.png"))) + (inactive-highlighted . ,(get-frame-image (concat (symbol-name styletab:style) "/" w "-ih.png"))) + (inactive-clicked . ,(get-frame-image (concat (symbol-name styletab:style) "/" w "-ic.png")))))) (define button-images (lambda (w x) (make-button-image (concat w "-frame-" x "-button"))))
Attachment:
signature.asc
Description: PGP signature