diff options
| author | Brent Yorgey <byorgey@gmail.com> | 2008-01-14 16:38:21 +0100 |
|---|---|---|
| committer | Brent Yorgey <byorgey@gmail.com> | 2008-01-14 16:38:21 +0100 |
| commit | 8a35e7ffea81ea78b6b1feb5bf1e9fb12d785b88 (patch) | |
| tree | 9b320af0719b3a653938ef2dc75dfefa6971e5c4 /XMonad/Layout/ShowWName.hs | |
| parent | ecd6ebe1a94c337f69b74d57f8896e97f1561bb0 (diff) | |
| download | XMonadContrib-8a35e7ffea81ea78b6b1feb5bf1e9fb12d785b88.tar.gz XMonadContrib-8a35e7ffea81ea78b6b1feb5bf1e9fb12d785b88.tar.xz XMonadContrib-8a35e7ffea81ea78b6b1feb5bf1e9fb12d785b88.zip | |
ShowWName.hs: switch color/bgcolor in call to paintAndWrite
darcs-hash:20080114153821-bd4d7-5b11099070c9981c7791d44e991a9abaaa4e9b87.gz
Diffstat (limited to 'XMonad/Layout/ShowWName.hs')
| -rw-r--r-- | XMonad/Layout/ShowWName.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/XMonad/Layout/ShowWName.hs b/XMonad/Layout/ShowWName.hs index 6110871..7d3f636 100644 --- a/XMonad/Layout/ShowWName.hs +++ b/XMonad/Layout/ShowWName.hs @@ -53,7 +53,7 @@ type ShowWNState = Maybe (TimerId, Window) data ShowWName a = SWN Bool SWNConfig ShowWNState deriving (Read, Show) data SWNConfig = - SWNC { swn_font :: String -- ^ Font name + SWNC { swn_font :: String -- ^ Font name , swn_bgcolor :: String -- ^ Backgorund color , swn_color :: String -- ^ String color , swn_fade :: Rational -- ^ Time in seconds of the name visibility @@ -93,7 +93,7 @@ flashName c (Rectangle _ _ wh ht) wrs = do x = (fi wh - width + 2) `div` 2 w <- createNewWindow (Rectangle (fi x) (fi y) (fi width) (fi hight)) Nothing "" True showWindow w - paintAndWrite w f (fi width) (fi hight) 0 "" "" (swn_bgcolor c) (swn_color c) AlignCenter n + paintAndWrite w f (fi width) (fi hight) 0 "" "" (swn_color c) (swn_bgcolor c) AlignCenter n releaseXMF f io $ sync d False i <- startTimer (swn_fade c) |