$mw->configure(-cursor => 
     ['@' . Tk->findINC('demos/images/cursor.xbm'), 
            Tk->findINC('demos/images/cursor.mask'),
            'red', 'green']);