neocturne/phi
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Some more icon optimizations

Browse source
This commit is contained in:
Matthias Schiffer 2011-07-17 20:54:49 +02:00
parent fe9d19a394
commit 4ffea6d426
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lib/Phi/Widgets/Taskbar.hs
View file

@ -84,7 +84,7 @@ downscaled s surface = do
w <- imageSurfaceGetWidth surface w <- imageSurfaceGetWidth surface
h <- imageSurfaceGetHeight 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 renderWith surface' $ do
scale 0.5 0.5 scale 0.5 0.5
downscaled (2*s) surface downscaled (2*s) surface
@ -237,11 +237,11 @@ instance WidgetClass Taskbar where
let scalef = (fromIntegral h')/(fromIntegral $ max imageW imageH) let scalef = (fromIntegral h')/(fromIntegral $ max imageW imageH)
renderWithSimilarSurface ContentColorAlpha imageW imageH $ \surface -> do renderWithSimilarSurface ContentColorAlpha h' h' $ \surface -> do
renderWith surface $ do renderWith surface $ do
taskIconStyle style icon downscaled scalef icon
paint paint
downscaled scalef surface taskIconStyle style surface
paint paint
restore restore