diff options
| author | jao <jao@gnu.org> | 2016-11-21 21:19:47 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2016-11-21 21:20:15 +0100 |
| commit | fd10cff3c73cb6fc99c3c34473685bf8b95dccdb (patch) | |
| tree | 4ba48be2db2dd414546550185969bb252f2459d1 | |
| parent | 00daf46505f7a354acd5537e41ad4a907b95698b (diff) | |
| download | xmobar-fd10cff3c73cb6fc99c3c34473685bf8b95dccdb.tar.gz xmobar-fd10cff3c73cb6fc99c3c34473685bf8b95dccdb.tar.bz2 | |
Bug fix: off-by-one drawing borders
| -rw-r--r-- | src/Window.hs | 4 |
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 |