Some more icon optimizations

1 files 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