From 4ffea6d426f830925bc930d5bb7ceac781e6c94d Mon Sep 17 00:00:00 2001 From: Matthias Schiffer Date: Sun, 17 Jul 2011 20:54:49 +0200 Subject: Some more icon optimizations --- lib/Phi/Widgets/Taskbar.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lib/Phi/Widgets/Taskbar.hs b/lib/Phi/Widgets/Taskbar.hs index 72fd5c8..23572bd 100644 --- a/lib/Phi/Widgets/Taskbar.hs +++ b/lib/Phi/Widgets/Taskbar.hs @@ -84,7 +84,7 @@ downscaled s surface = do w <- imageSurfaceGetWidth surface h <- imageSurfaceGetHeight surface - renderWithSimilarSurface ContentColorAlpha w h $ \surface' -> do + renderWithSimilarSurface ContentColorAlpha (ceiling (fromIntegral w*s)) (ceiling (fromIntegral h*s)) $ \surface' -> do renderWith surface' $ do scale 0.5 0.5 downscaled (2*s) surface @@ -237,11 +237,11 @@ instance WidgetClass Taskbar where let scalef = (fromIntegral h')/(fromIntegral $ max imageW imageH) - renderWithSimilarSurface ContentColorAlpha imageW imageH $ \surface -> do + renderWithSimilarSurface ContentColorAlpha h' h' $ \surface -> do renderWith surface $ do - taskIconStyle style icon + downscaled scalef icon paint - downscaled scalef surface + taskIconStyle style surface paint restore -- cgit v1.2.3