diff options
Diffstat (limited to 'src/Window.hs')
| -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 |