From b76c3076c3214110e81e58ca63e6aa47d8640a4b Mon Sep 17 00:00:00 2001 From: Rohan Jain Date: Tue, 6 Mar 2012 07:52:24 +0100 Subject: 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 --- XMonad/Layout/ShowWName.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'XMonad/Layout') 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) -- cgit v1.2.3