take out pointless variable

This commit is contained in:
Seb Shader 2022-01-28 22:44:55 -08:00
parent 28f4a04f41
commit 2c9312e139

View file

@ -213,10 +213,9 @@ proc ::color-themes::scroll {box coord units boxincr} {
# not sure of a better way to simulate hovering.. # not sure of a better way to simulate hovering..
set ocanvy [.colortheme_dialog.theme_list.c canvasy 0] set ocanvy [.colortheme_dialog.theme_list.c canvasy 0]
.colortheme_dialog.theme_list.c yview scroll [expr {- ($units)}] units .colortheme_dialog.theme_list.c yview scroll [expr {- ($units)}] units
set boxnum [expr max(0, min($box + int($coord + \ {::color-themes::motion} [expr max(0, min($box + int($coord + \
[.colortheme_dialog.theme_list.c canvasy 0] - $ocanvy)/$boxincr, \ [.colortheme_dialog.theme_list.c canvasy 0] - $ocanvy)/$boxincr, \
$num_themes-1))] $num_themes-1))]
{::color-themes::motion} $boxnum
} }
proc ::color-themes::apply {names} { proc ::color-themes::apply {names} {