From 53047ac807d37682c72abeb9a92fff3e41779108 Mon Sep 17 00:00:00 2001
From: fvogel <fvogelnew1@free.fr>
Date: Mon, 18 Jan 2016 09:47:10 +0000
Subject: Fixed bug with the listbox justify patch: with large borders, when
 moving the horizontal scrollbar fully to the right the edge of the border
 could not be seen, one needed to push once on the right arrow of the
 scrollbar to see it. Test case:

    package require Tk
    destroy .top
    toplevel .top
    listbox .top.l -justify right -borderwidth 17 -highlightthickness 19 -selectborderwidth 22
    scrollbar .top.hs -command ".top.l xview" -orient horizontal
    .top.l configure -xscrollcommand ".top.hs set"
    set huge [concat "START -" [string repeat "Huge Item... " 20] "- END"]
    .top.l insert end $huge
    pack .top.l -expand 1 -fill both
    pack .top.hs -expand 1 -fill x
---
 generic/tkListbox.c | 1 -
 1 file changed, 1 deletion(-)

diff --git a/generic/tkListbox.c b/generic/tkListbox.c
index e29c637..ee6941e 100644
--- a/generic/tkListbox.c
+++ b/generic/tkListbox.c
@@ -3657,7 +3657,6 @@ static int GetMaxOffset(
 
         maxOffset = 0;
     }
-    maxOffset -= maxOffset % listPtr->xScrollUnit;
 
     return maxOffset;
 }
-- 
cgit v0.12