diff options
| author | marc_culler <marc.culler@gmail.com> | 2023-11-21 23:16:52 (GMT) |
|---|---|---|
| committer | marc_culler <marc.culler@gmail.com> | 2023-11-21 23:16:52 (GMT) |
| commit | b0d31264c787b4be2ebc7c76087cab702a2a5aed (patch) | |
| tree | ae3c9158a49f5a12417acd2ad69a2f4adc2bb1a0 /library/ttk | |
| parent | e248b31dcf690c7e53152483247d999679106ca5 (diff) | |
| download | tk-b0d31264c787b4be2ebc7c76087cab702a2a5aed.zip tk-b0d31264c787b4be2ebc7c76087cab702a2a5aed.tar.gz tk-b0d31264c787b4be2ebc7c76087cab702a2a5aed.tar.bz2 | |
Add bindings for Scrollbar and Listbox. Fix bindings for Text.
Diffstat (limited to 'library/ttk')
| -rw-r--r-- | library/ttk/scrollbar.tcl | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/library/ttk/scrollbar.tcl b/library/ttk/scrollbar.tcl index 6ad6e15..c488833 100644 --- a/library/ttk/scrollbar.tcl +++ b/library/ttk/scrollbar.tcl @@ -21,6 +21,7 @@ bind TScrollbar <ButtonRelease-2> { ttk::scrollbar::Release %W %x %y } # bind TScrollbar <MouseWheel> [bind Scrollbar <MouseWheel>] bind TScrollbar <Option-MouseWheel> [bind Scrollbar <Option-MouseWheel>] +bind TScrollbar <Control-MouseWheel> [bind Scrollbar <Control-MouseWheel>] proc ttk::scrollbar::Scroll {w n units} { set cmd [$w cget -command] |