diff options
| author | fvogel <fvogelnew1@free.fr> | 2016-01-18 09:47:10 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2016-01-18 09:47:10 (GMT) |
| commit | 53047ac807d37682c72abeb9a92fff3e41779108 (patch) | |
| tree | 3c9567778d8ebae4c520f8110f9ad18fbf6b3dc1 | |
| parent | f753eecfed15ad634f2a6b98c56a6cd1f0194beb (diff) | |
| download | tk-53047ac807d37682c72abeb9a92fff3e41779108.zip tk-53047ac807d37682c72abeb9a92fff3e41779108.tar.gz tk-53047ac807d37682c72abeb9a92fff3e41779108.tar.bz2 | |
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
| -rw-r--r-- | generic/tkListbox.c | 1 |
1 files changed, 0 insertions, 1 deletions
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; } |