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

try to "hover" after mousewheel scroll

Browse source 
simulate hovering over correct box after scroll, hopefully..
This commit is contained in:
Seb Shader 2022-01-28 21:18:39 -08:00
parent 785c71d4b4
commit e1f5817731
1 changed files with 13 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
color-themes-plugin.tcl
View file

@ -208,6 +208,17 @@ proc ::color-themes::click {box} {
green -width 7
}
proc ::color-themes::scroll {box coord units boxincr} {
variable num_themes
# not sure of a better way to simulate hovering..
set ocanvy [.colortheme_dialog.theme_list.c canvasy 0]
.colortheme_dialog.theme_list.c yview scroll [expr {- ($units)}] units
set boxnum [expr max(0, min($box + int($coord + \
[.colortheme_dialog.theme_list.c canvasy 0] - $ocanvy)/$boxincr, \
$num_themes-1))]
{::color-themes::motion} $boxnum
}
proc ::color-themes::apply {names} {
variable selected_theme
if {$selected_theme eq ""} {return}
@ -306,9 +317,8 @@ proc ::color-themes::opendialog {} {
$boxheight -background $::pd_colors(canvas_fill) \
-highlightthickness 0
grid .colortheme_dialog.theme_list.c.f$counter.c
bind .colortheme_dialog.theme_list.c.f$counter.c <MouseWheel> {
.colortheme_dialog.theme_list.c yview scroll [expr {- (%D)}] units
}
bind .colortheme_dialog.theme_list.c.f$counter.c <MouseWheel> \
[list {::color-themes::scroll} $counter %y %D $boxincr]
bind .colortheme_dialog.theme_list.c.f$counter.c <Motion> \
[list {::color-themes::motion} $counter]
bind .colortheme_dialog.theme_list.c.f$counter.c <ButtonPress> \