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

Correctly align non-square icons

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

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

@ -237,6 +237,10 @@ instance WidgetClass Taskbar where
let scalef = (fromIntegral h')/(fromIntegral $ max imageW imageH) let scalef = (fromIntegral h')/(fromIntegral $ max imageW imageH)
case True of
_ | imageH < imageW -> translate 0 (fromIntegral (imageW-imageH)*scalef/2)
| otherwise -> translate (fromIntegral (imageH-imageW)*scalef/2) 0
renderWithSimilarSurface ContentColorAlpha h' h' $ \surface -> do renderWithSimilarSurface ContentColorAlpha h' h' $ \surface -> do
renderWith surface $ do renderWith surface $ do
downscaled scalef icon downscaled scalef icon