From aacda640f8f6063b7ed98867930ec56f14b4daf2 Mon Sep 17 00:00:00 2001 From: Jose A Ortega Ruiz Date: Fri, 25 Jun 2010 14:55:58 +0200 Subject: Add borders after strings are drawn. Ignore-this: 41ab62f56ddf57fc3bcea9af7dcf1f3c darcs-hash:20100625125558-748be-f66fc11686ffa0b4221a46df44df54af6e5bd7a8.gz --- Xmobar.hs | 4 ++-- 1 file 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!) -- cgit v1.2.3