# Windows mouse wheel binding
$scale->bind('<Enter>' =>  sub {$scale->focus} );
$scale->bind('<Leave>' =>  sub {$mw->focus});
$scale->bind('<MouseWheel>' => [ sub { $scale->set($var+$incr*($_[1] / 120))}, Ev('D') ] );