From 8a35e7ffea81ea78b6b1feb5bf1e9fb12d785b88 Mon Sep 17 00:00:00 2001 From: Brent Yorgey Date: Mon, 14 Jan 2008 16:38:21 +0100 Subject: ShowWName.hs: switch color/bgcolor in call to paintAndWrite darcs-hash:20080114153821-bd4d7-5b11099070c9981c7791d44e991a9abaaa4e9b87.gz --- XMonad/Layout/ShowWName.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'XMonad/Layout/ShowWName.hs') 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) -- cgit v1.2.3