summaryrefslogtreecommitdiffhomepage
path: root/Xmobar.hs
diff options
context:
space:
mode:
authorJose A Ortega Ruiz <jao@gnu.org>2010-06-25 14:55:58 +0200
committerJose A Ortega Ruiz <jao@gnu.org>2010-06-25 14:55:58 +0200
commitaacda640f8f6063b7ed98867930ec56f14b4daf2 (patch)
treed534333a9f22e1faaba645c9e218c992b94ebbfc /Xmobar.hs
parent961b6664453d73ea4d25ca91ef0870935fd340e1 (diff)
downloadxmobar-aacda640f8f6063b7ed98867930ec56f14b4daf2.tar.gz
xmobar-aacda640f8f6063b7ed98867930ec56f14b4daf2.tar.bz2
Add borders after strings are drawn.
Ignore-this: 41ab62f56ddf57fc3bcea9af7dcf1f3c darcs-hash:20100625125558-748be-f66fc11686ffa0b4221a46df44df54af6e5bd7a8.gz
Diffstat (limited to 'Xmobar.hs')
-rw-r--r--Xmobar.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/Xmobar.hs b/Xmobar.hs
index 702dcbf..08c6d6a 100644
--- a/Xmobar.hs
+++ b/Xmobar.hs
@@ -251,12 +251,12 @@ drawInWin (Rectangle _ _ wid ht) ~[left,center,right] = do
-- the fgcolor of the rectangle will be the bgcolor of the window
io $ setForeground d gc bgcolor
io $ fillRectangle d p gc 0 0 wid ht
- -- draw 1 pixel border if requested
- io $ drawBorder (border c) d p gc bdcolor wid ht
-- write to the pixmap the new string
printStrings p gc fs 1 L =<< strLn left
printStrings p gc fs 1 R =<< strLn right
printStrings p gc fs 1 C =<< strLn center
+ -- draw 1 pixel border if requested
+ io $ drawBorder (border c) d p gc bdcolor wid ht
-- copy the pixmap with the new string to the window
io $ copyArea d p w gc 0 0 wid ht 0 0
-- free up everything (we do not want to leak memory!)