From fd10cff3c73cb6fc99c3c34473685bf8b95dccdb Mon Sep 17 00:00:00 2001 From: jao Date: Mon, 21 Nov 2016 21:19:47 +0100 Subject: Bug fix: off-by-one drawing borders --- src/Window.hs | 4 ++-- 1 file 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 -- cgit v1.2.3