$mw->Busy( '-recurse' => 1 );
... do some other stuff here ...
$mw->Unbusy( '-recurse' => 1);

##</code><code>##

$mw->configure(-cursor => 'watch');
... do some stuff here ...
$mw->configure(-cursor => undef);