[sawfish] don't scale images in StyleTab (fixes blurriness introduced with last update)

[Christopher Bratusek <chrisb src gnome org>]

commit b513fa2c508e31ce261a962d3bf39c3dbb8ea8a3
Author: Christopher Roy Bratusek <zanghar freenet de>
Date:   Mon Feb 7 22:43:42 2011 +0100

    don't scale images in StyleTab (fixes blurriness introduced with last update)

 themes/StyleTab/theme.jl |   20 ++++++--------------
 1 files changed, 6 insertions(+), 14 deletions(-)
---
diff --git a/themes/StyleTab/theme.jl b/themes/StyleTab/theme.jl
index 739995e..1d097dd 100644
--- a/themes/StyleTab/theme.jl
+++ b/themes/StyleTab/theme.jl
@@ -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"))))