diff options
| author | Daniel Schoepe <daniel.schoepe@gmail.com> | 2009-08-22 00:56:46 +0200 |
|---|---|---|
| committer | Daniel Schoepe <daniel.schoepe@gmail.com> | 2009-08-22 00:56:46 +0200 |
| commit | 659ae683d198c108cddc93d4445df9567e4a7511 (patch) | |
| tree | ae883f26001a27a673596386cc2a03baf03e71cc | |
| parent | 68c1d0f5d321fb88f0b87e9b8d2aa19512740342 (diff) | |
| download | XMonadContrib-659ae683d198c108cddc93d4445df9567e4a7511.tar.gz XMonadContrib-659ae683d198c108cddc93d4445df9567e4a7511.tar.xz XMonadContrib-659ae683d198c108cddc93d4445df9567e4a7511.zip | |
Add backwards compatability in X.H.FadeInactive
Ignore-this: d2ef91429d80fde5126b2aa8f0de9b1f
darcs-hash:20090821225646-7f603-f88c0e9cc292247e44175343f9b3a91e03c98afb.gz
Diffstat (limited to '')
| -rw-r--r-- | XMonad/Hooks/FadeInactive.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/XMonad/Hooks/FadeInactive.hs b/XMonad/Hooks/FadeInactive.hs index aeacc3c..343b3ee 100644 --- a/XMonad/Hooks/FadeInactive.hs +++ b/XMonad/Hooks/FadeInactive.hs @@ -55,7 +55,7 @@ import Control.Monad -- | Converts a percentage to the format required for _NET_WM_WINDOW_OPACITY rationalToOpacity :: Integral a => Rational -> a rationalToOpacity perc - | perc < 0 || perc > 1 = 0xffffffff -- invalid input, default to opaque + | perc < 0 || perc > 1 = round perc -- to maintain backwards-compatability | otherwise = round $ perc * 0xffffffff -- | sets the opacity of a window |