aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorBrent Yorgey <byorgey@gmail.com>2008-01-14 16:38:21 +0100
committerBrent Yorgey <byorgey@gmail.com>2008-01-14 16:38:21 +0100
commit8a35e7ffea81ea78b6b1feb5bf1e9fb12d785b88 (patch)
tree9b320af0719b3a653938ef2dc75dfefa6971e5c4
parentecd6ebe1a94c337f69b74d57f8896e97f1561bb0 (diff)
downloadXMonadContrib-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
-rw-r--r--XMonad/Layout/ShowWName.hs4
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)