$canvas->g_bind("<MouseWheel>", [ sub {
              	my $wert = -($_[1]/120);
              	$wert = '+' . $wert unless $wert =~ /^-/;
              	print $wert . "\n"; }, Tkx::Ev('D') ]);