summaryrefslogtreecommitdiffhomepage
path: root/src
diff options
context:
space:
mode:
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