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

better scrolling on windows (still not smooth..)

Browse source
This commit is contained in:
Sebastian Shader 2023-12-16 12:27:42 -06:00
parent 2b1e95b516
commit e75b311a33
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

@ -339,6 +339,11 @@ 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 "win32"} {
.colortheme_dialog.theme_list.c.f$counter.c configure \
-yscrollincrement 1
}
if {$::windowingsystem eq "x11"} { if {$::windowingsystem eq "x11"} {
# from http://wiki.tcl.tk/3893 # from http://wiki.tcl.tk/3893
bind .colortheme_dialog.theme_list.c.f$counter.c <Button-4> \ bind .colortheme_dialog.theme_list.c.f$counter.c <Button-4> \
@ -529,6 +534,9 @@ proc ::color-themes::opendialog {} {
} }
bind .colortheme_dialog.theme_list.c <MouseWheel> \ bind .colortheme_dialog.theme_list.c <MouseWheel> \
[list {::color-themes::mainscroll} %y %D $boxincr] [list {::color-themes::mainscroll} %y %D $boxincr]
if {$::windowingsystem eq "win32"} {
.colortheme_dialog.theme_list.c configure -yscrollincrement 1
}
if {$::windowingsystem eq "x11"} { if {$::windowingsystem eq "x11"} {
# from http://wiki.tcl.tk/3893 # from http://wiki.tcl.tk/3893
bind .colortheme_dialog.theme_list.c <Button-4> \ bind .colortheme_dialog.theme_list.c <Button-4> \