summaryrefslogtreecommitdiffhomepage
path: root/src
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2016-11-21 21:19:47 +0100
committerjao <jao@gnu.org>2016-11-21 21:20:15 +0100
commitfd10cff3c73cb6fc99c3c34473685bf8b95dccdb (patch)
tree4ba48be2db2dd414546550185969bb252f2459d1 /src
parent00daf46505f7a354acd5537e41ad4a907b95698b (diff)
downloadxmobar-fd10cff3c73cb6fc99c3c34473685bf8b95dccdb.tar.gz
xmobar-fd10cff3c73cb6fc99c3c34473685bf8b95dccdb.tar.bz2
Bug fix: off-by-one drawing borders
Diffstat (limited to 'src')
-rw-r--r--src/Window.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Window.hs b/src/Window.hs
index ffb3e45..3c3981e 100644
--- a/src/Window.hs
+++ b/src/Window.hs
@@ -1,7 +1,7 @@
-----------------------------------------------------------------------------
-- |
-- Module : Window
--- Copyright : (c) 2011-15 Jose A. Ortega Ruiz
+-- Copyright : (c) 2011-16 Jose A. Ortega Ruiz
-- : (c) 2012 Jochen Keil
-- License : BSD-style (see LICENSE)
--
@@ -178,7 +178,7 @@ drawBorder b lw d p gc c wi ht = case b of
FullBM m -> let mp = fi m
pad = 2 * fi mp + fi lw
in sf >> sla >>
- drawRectangle d p gc mp mp (wi - pad + 1) (ht - pad)
+ drawRectangle d p gc mp mp (wi - pad) (ht - pad)
where sf = setForeground d gc c
sla = setLineAttributes d gc (fi lw) lineSolid capNotLast joinMiter
boff = borderOffset b lw