summaryrefslogtreecommitdiffstats
path: root/lib/Phi
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Phi')
-rw-r--r--lib/Phi/Widgets/Taskbar.hs8
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