twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-10 08:51:54 -07:00
Code Issues Packages Projects Releases Wiki Activity

ShowWName.hs: switch color/bgcolor in call to paintAndWrite

Browse Source
This commit is contained in:
Brent Yorgey
2008-01-14 15:38:21 +00:00
parent 1e7cd73544
commit e76c654211
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
XMonad/Layout/ShowWName.hs
View File

@@ -53,7 +53,7 @@ type ShowWNState = Maybe (TimerId, Window)
data ShowWName a = SWN Bool SWNConfig ShowWNState deriving (Read, Show) data ShowWName a = SWN Bool SWNConfig ShowWNState deriving (Read, Show)
data SWNConfig = data SWNConfig =
SWNC { swn_font :: String -- ^ Font name SWNC { swn_font :: String -- ^ Font name
, swn_bgcolor :: String -- ^ Backgorund color , swn_bgcolor :: String -- ^ Backgorund color
, swn_color :: String -- ^ String color , swn_color :: String -- ^ String color
, swn_fade :: Rational -- ^ Time in seconds of the name visibility , 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 x = (fi wh - width + 2) `div` 2
w <- createNewWindow (Rectangle (fi x) (fi y) (fi width) (fi hight)) Nothing "" True w <- createNewWindow (Rectangle (fi x) (fi y) (fi width) (fi hight)) Nothing "" True
showWindow w 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 releaseXMF f
io $ sync d False io $ sync d False
i <- startTimer (swn_fade c) i <- startTimer (swn_fade c)