$mw->bind( 'Tk::Canvas','<Motion>' => \&making_rect );