For anyone else on linux looking for this documentation that doesn't exist.

$main_window->configure( -cursor => 'watch' );
Tkx::update();

long_routine();

$main_window->configure( -cursor => 'top_left_arrow' );
Tkx::update();
[download]