$canvas->g_bind("<MouseWheel>", [ sub { my($D) = @_; print $D . "\n"; }, Tkx::Ev("%D") ]);