You could provide your own cursor and make it one pixel wide.

Excerpt from the perl Tk FAQ:

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