How to change the mouse cursor?

[Oliver 'ojo' Bedford]

Hi!

I'm doing something timeconsuming in a Tk callback. To communicate this
to the user I would like to change the mouse cursor.

If I use something like $mw->configure(-cursor => 'foo'); in the callback
the mouse cursor get's changed _after_ the callback is finished. Which is
understandable if you think about it, but clearly is not what I intended.

So how is it done?

Oliver

[Steve C]

Use the Busy call, which is available for all widgets.
$mw->Busy(-cursor => 'watch');