diff options
Diffstat (limited to 'lib/Phi')
| -rw-r--r-- | lib/Phi/Widgets/Taskbar.hs | 8 |
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 |