doohoyi/color-themes-plugin
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

unbind horizontal scrolling buttons (triggering vertical ones)

Browse source
This commit is contained in:
Seb Shader 2022-10-29 00:04:32 -07:00
parent 16cd2d12ba
commit cf0928953b
1 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
color-themes-plugin.tcl
View file

@ -335,6 +335,10 @@ proc ::color-themes::opendialog {} {
{event generate %W <MouseWheel> -delta 1 -y %y} {event generate %W <MouseWheel> -delta 1 -y %y}
bind .colortheme_dialog.theme_list.c.f$counter.c <Button-5> \ bind .colortheme_dialog.theme_list.c.f$counter.c <Button-5> \
{event generate %W <MouseWheel> -delta -1 -y %y} {event generate %W <MouseWheel> -delta -1 -y %y}
bind .colortheme_dialog.theme_list.c.f$counter.c <Shift-Button-4> \
{break}
bind .colortheme_dialog.theme_list.c.f$counter.c <Shift-Button-5> \
{break}
} }
bind .colortheme_dialog.theme_list.c.f$counter.c <Motion> \ bind .colortheme_dialog.theme_list.c.f$counter.c <Motion> \
[list {::color-themes::motion} $counter] [list {::color-themes::motion} $counter]
@ -521,6 +525,10 @@ proc ::color-themes::opendialog {} {
{event generate %W <MouseWheel> -delta 1 -y %y} {event generate %W <MouseWheel> -delta 1 -y %y}
bind .colortheme_dialog.theme_list.c <Button-5> \ bind .colortheme_dialog.theme_list.c <Button-5> \
{event generate %W <MouseWheel> -delta -1 -y %y} {event generate %W <MouseWheel> -delta -1 -y %y}
bind .colortheme_dialog.theme_list.c <Shift-Button-4> \
{break}
bind .colortheme_dialog.theme_list.c <Shift-Button-5> \
{break}
} }
bind .colortheme_dialog.theme_list.c <Leave> { bind .colortheme_dialog.theme_list.c <Leave> {
if {${::color-themes::hover_theme} ne "" && \ if {${::color-themes::hover_theme} ne "" && \