diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-08-21 15:43:20 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-08-21 15:43:20 (GMT) |
| commit | bb6f9b25fe0c1c5356d50b10ec2e6bd2ad284f8b (patch) | |
| tree | 5571e12d68e904245c8b6cd1319519c39c604310 /library/ttk/scrollbar.tcl | |
| parent | aa7b5aca7453deb72f795bcac257cb64ee9fe76e (diff) | |
| parent | 4599696086a1c8e7cd453f1ffbce0f95dbfd283f (diff) | |
| download | tk-bb6f9b25fe0c1c5356d50b10ec2e6bd2ad284f8b.zip tk-bb6f9b25fe0c1c5356d50b10ec2e6bd2ad284f8b.tar.gz tk-bb6f9b25fe0c1c5356d50b10ec2e6bd2ad284f8b.tar.bz2 | |
Merge 8.6
Diffstat (limited to 'library/ttk/scrollbar.tcl')
| -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 7537491..fdba265 100644 --- a/library/ttk/scrollbar.tcl +++ b/library/ttk/scrollbar.tcl @@ -56,7 +56,7 @@ proc ttk::scrollbar::Press {w x y} { set State(yPress) $y switch -glob -- [$w identify $x $y] { - *uparrow - + *uparrow - *leftarrow { ttk::Repeatedly Scroll $w -1 units } @@ -64,6 +64,7 @@ proc ttk::scrollbar::Press {w x y} { *rightarrow { ttk::Repeatedly Scroll $w 1 units } + *grip - *thumb { set State(first) [lindex [$w get] 0] } @@ -109,6 +110,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] |