summaryrefslogtreecommitdiffhomepage
path: root/src/Xmobar.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Xmobar.hs')
-rw-r--r--src/Xmobar.hs8
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Xmobar.hs b/src/Xmobar.hs
index 2f5af19..b58b060 100644
--- a/src/Xmobar.hs
+++ b/src/Xmobar.hs
@@ -265,8 +265,8 @@ drawInWin (Rectangle _ _ wid ht) ~[left,center,right] = do
-- resync
io $ sync d True
-drawBorder :: Border -> Display -> Drawable -> GC -> Pixel -> Dimension
- -> Dimension -> IO ()
+drawBorder :: Border -> Display -> Drawable -> GC -> Pixel
+ -> Dimension -> Dimension -> IO ()
drawBorder b d p gc c wi ht = case b of
NoBorder -> return ()
TopB -> drawBorder (TopBM 0) d p gc c w h
@@ -275,8 +275,8 @@ drawBorder b d p gc c wi ht = case b of
TopBM m -> sf >> drawLine d p gc 0 (fi m) (fi w) 0
BottomBM m -> let rw = (fi h) - (fi m) in
sf >> drawLine d p gc 0 rw (fi w) rw
- FullBM m -> let rm = fi m; mp = fi m in
- sf >> drawRectangle d p gc mp mp (w - rm) (h - rm)
+ FullBM m -> let pad = 2 * fi m; mp = fi m in
+ sf >> drawRectangle d p gc mp mp (w - pad) (h - pad)
where sf = setForeground d gc c
(w, h) = (wi - 1, ht - 1)