#######################################

sub bindmousewheel {
    my ($w) = @_;
    if ($^O =~ /Win32/) {
        $w->bind(
            '<MouseWheel>' => [
                sub {
                    $w->yview( 'scroll', -( $_[1] / 120 ) * 3, 'units' );
                },
                Ev('D')
            ]
        );
    }
    else {
        $w->bind(
            '<4>' => sub {
                $w->yview( 'scroll', -3, 'units' ) unless $Tk::strictMotif;
            }
        );
        $w->bind(
            '<5>' => sub {
                $w->yview( 'scroll', +3, 'units' ) unless $Tk::strictMotif;
            }
        );
    }
}

#######################################