twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-13 11:16:01 -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

2
XMonad/Layout/ShowWName.hs
View File

@@ -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)