diff options
| author | bll <brad.lanam.comp@gmail.com> | 2020-08-20 22:50:13 (GMT) |
|---|---|---|
| committer | bll <brad.lanam.comp@gmail.com> | 2020-08-20 22:50:13 (GMT) |
| commit | 8962bfa23f42567fd3e6ead0c1f2326b3472ca19 (patch) | |
| tree | 8acdf86af5b86fc3eeabaca06bb5750f67e9955a /library | |
| parent | 999cd73b8d9af8d879bfd56f9137c53f570aa516 (diff) | |
| download | tk-8962bfa23f42567fd3e6ead0c1f2326b3472ca19.zip tk-8962bfa23f42567fd3e6ead0c1f2326b3472ca19.tar.gz tk-8962bfa23f42567fd3e6ead0c1f2326b3472ca19.tar.bz2 | |
Fix mouse bindings for scrollbars with graphical grip elements.
Diffstat (limited to 'library')
| -rw-r--r-- | library/ttk/scrollbar.tcl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/library/ttk/scrollbar.tcl b/library/ttk/scrollbar.tcl index efcf3a1..e939426 100644 --- a/library/ttk/scrollbar.tcl +++ b/library/ttk/scrollbar.tcl @@ -67,6 +67,7 @@ proc ttk::scrollbar::Press {w x y} { *rightarrow { ttk::Repeatedly Scroll $w 1 units } + *grip - *thumb { set State(first) [lindex [$w get] 0] } @@ -89,7 +90,7 @@ proc ttk::scrollbar::Press {w x y} { proc ttk::scrollbar::Drag {w x y} { variable State if {![info exists State(first)]} { - # Initial buttonpress was not on the thumb, + # Initial buttonpress was not on the thumb, # or something screwy has happened. In either case, ignore: return; } @@ -112,6 +113,7 @@ proc ttk::scrollbar::Jump {w x y} { variable State switch -glob -- [$w identify $x $y] { + *grip - *thumb - *trough { set State(first) [$w fraction $x $y] |