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

add mousewheel scrolling to x11

Browse source
This commit is contained in:
Seb Shader 2022-08-25 05:43:24 -07:00
parent c6c5c96ee1
commit 950d5143d7
1 changed files with 15 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
color-themes-plugin.tcl
View file

@ -318,6 +318,13 @@ proc ::color-themes::opendialog {} {
grid .colortheme_dialog.theme_list.c.f$counter.c grid .colortheme_dialog.theme_list.c.f$counter.c
bind .colortheme_dialog.theme_list.c.f$counter.c <MouseWheel> \ bind .colortheme_dialog.theme_list.c.f$counter.c <MouseWheel> \
[list {::color-themes::scroll} $counter %y %D $boxincr] [list {::color-themes::scroll} $counter %y %D $boxincr]
if {$::windowingsystem eq "x11"} {
# from http://wiki.tcl.tk/3893
bind .colortheme_dialog.theme_list.c.f$counter.c <Button-4> \
{event generate %W <MouseWheel> -delta 1}
bind .colortheme_dialog.theme_list.c.f$counter.c <Button-5> \
{event generate %W <MouseWheel> -delta -1}
}
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]
bind .colortheme_dialog.theme_list.c.f$counter.c <ButtonPress> \ bind .colortheme_dialog.theme_list.c.f$counter.c <ButtonPress> \
@ -498,7 +505,13 @@ proc ::color-themes::opendialog {} {
bind .colortheme_dialog.theme_list.c <MouseWheel> { bind .colortheme_dialog.theme_list.c <MouseWheel> {
.colortheme_dialog.theme_list.c yview scroll [expr {- (%D)}] units .colortheme_dialog.theme_list.c yview scroll [expr {- (%D)}] units
} }
if {$::windowingsystem eq "x11"} {
# from http://wiki.tcl.tk/3893
bind .colortheme_dialog.theme_list.c <Button-4> \
{event generate %W <MouseWheel> -delta 1}
bind .colortheme_dialog.theme_list.c <Button-5> \
{event generate %W <MouseWheel> -delta -1}
}
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 "" && \
${::color-themes::selected_theme} ne ${::color-themes::hover_theme}} { ${::color-themes::selected_theme} ne ${::color-themes::hover_theme}} {
@ -548,4 +561,4 @@ if {![array exists ::pd_colors]} {
} else { } else {
::color-themes::init .menubar.file.preferences ::color-themes::init .menubar.file.preferences
} }
} }