take out pointless variable
This commit is contained in:
parent
28f4a04f41
commit
2c9312e139
1 changed files with 1 additions and 2 deletions
|
|
@ -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} {
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue