diff options
| author | Jose A Ortega Ruiz <jao@gnu.org> | 2010-06-25 14:55:58 +0200 |
|---|---|---|
| committer | Jose A Ortega Ruiz <jao@gnu.org> | 2010-06-25 14:55:58 +0200 |
| commit | aacda640f8f6063b7ed98867930ec56f14b4daf2 (patch) | |
| tree | d534333a9f22e1faaba645c9e218c992b94ebbfc /Xmobar.hs | |
| parent | 961b6664453d73ea4d25ca91ef0870935fd340e1 (diff) | |
| download | xmobar-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.hs | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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!) |