#
# Sets the cursor to the 'busy' cursor
#
$mw->Busy(-recurse => 1);
$mw->update();
#
# Callback code goes here
#
$mw->Unbusy;
$mw->update();