20 lines
784 B
Plaintext
20 lines
784 B
Plaintext
$OpenBSD: patch-src_Window_hs,v 1.3 2016/11/23 13:24:05 dcoppa Exp $
|
|
|
|
commit fd10cff3c73cb6fc99c3c34473685bf8b95dccdb
|
|
Author: jao <jao@gnu.org>
|
|
Date: Mon Nov 21 21:19:47 2016 +0100
|
|
|
|
Bug fix: off-by-one drawing borders
|
|
|
|
--- src/Window.hs.orig Mon Sep 5 17:49:18 2016
|
|
+++ src/Window.hs Wed Nov 23 14:17:04 2016
|
|
@@ -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
|