$mw->bind('<MouseWheel>',
        [ sub {
              my $wert = -($_[1]/120);
              $wert = '+' . $wert unless $wert =~ /^-/;
              animation_schalten($wert);
          },
          Tk::Ev('D')
        ]
    );