$mw->bind($c, '<MouseWheel>', sub { print "Test\n"; });