aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRohan Jain <crodjer@gmail.com>2012-03-06 07:52:24 +0100
committerRohan Jain <crodjer@gmail.com>2012-03-06 07:52:24 +0100
commitb76c3076c3214110e81e58ca63e6aa47d8640a4b (patch)
treeb6834fcf21764d5e59138ea6bd45e087f97b3277
parent85934e8253c3610ebf379ca9f87392d623a2f66b (diff)
downloadXMonadContrib-b76c3076c3214110e81e58ca63e6aa47d8640a4b.tar.gz
XMonadContrib-b76c3076c3214110e81e58ca63e6aa47d8640a4b.tar.xz
XMonadContrib-b76c3076c3214110e81e58ca63e6aa47d8640a4b.zip
ShowWName flash window background color
Ignore-this: 9cd8fcfc13cc326b9dcc79ef3cc21b26 While calling paintAndWrite for flash window, the background color from config should also be passed on as window background in addition to as text background color. Otherwise the window color gets set to the default black which shows up when text cannot span whole of the window. This issue becomes visible when the font size is considerably large or even in small size with truetype fonts. darcs-hash:20120306065224-afc14-c5ec054c5448ed3e68a302ad23126163b525f225.gz
-rw-r--r--XMonad/Layout/ShowWName.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/XMonad/Layout/ShowWName.hs b/XMonad/Layout/ShowWName.hs
index ebca235..cdb2e0f 100644
--- a/XMonad/Layout/ShowWName.hs
+++ b/XMonad/Layout/ShowWName.hs
@@ -97,7 +97,7 @@ flashName c (Rectangle sx sy wh ht) wrs = do
x = fi sx + (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_color c) (swn_bgcolor c) [AlignCenter] [n]
+ paintAndWrite w f (fi width) (fi hight) 0 (swn_bgcolor c) "" (swn_color c) (swn_bgcolor c) [AlignCenter] [n]
releaseXMF f
io $ sync d False
i <- startTimer (swn_fade c)