diff options
| author | Kevin Walzer <kw@codebykevin.com> | 2018-10-18 01:44:28 (GMT) |
|---|---|---|
| committer | Kevin Walzer <kw@codebykevin.com> | 2018-10-18 01:44:28 (GMT) |
| commit | 7c72c49df6a37f0954982aab35afda0dcfee52b5 (patch) | |
| tree | 16d17411eae300348f01cd66ed2c9e379bd7fd45 /tests | |
| parent | 60f8872bd363431470f9d9a16b5fca3debd5318e (diff) | |
| parent | c650f722da03d87c52824306cefeb20c03ebb8b4 (diff) | |
| download | tk-7c72c49df6a37f0954982aab35afda0dcfee52b5.zip tk-7c72c49df6a37f0954982aab35afda0dcfee52b5.tar.gz tk-7c72c49df6a37f0954982aab35afda0dcfee52b5.tar.bz2 | |
Signficant fixes to scrolling in macOS
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/scrollbar.test | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/tests/scrollbar.test b/tests/scrollbar.test index b7cdbc0..fa6eb69 100644 --- a/tests/scrollbar.test +++ b/tests/scrollbar.test @@ -24,6 +24,7 @@ proc getTroughSize {w} { return [expr [winfo width $w] - 2*[testmetrics cxhscroll $w]] } } else { + # Calculations here assume that the arrow area is a square. if [string match v* [$w cget -orient]] { return [expr [winfo height $w] \ - ([winfo width $w] \ |