$mw->MouseWheelBind("Tk::Canvas")