Re: How do I set a busy cursor in Tk

$widget -> Busy;

Quoting the perldocs on Tk(more specifically, Tk::Widget - Base class of all widgets): "$widget->Busy?(?-recurse => 1?-option = value>?)? This method configures a -cursor option for $widget and (if -recurse = 1> is specified) all its descendants. The cursor to be set may be passed as -cursor = cursor> or defaults to 'watch'. Additional configure options are applied to $widget only. It also adds a special tag 'Busy' to the bindtags of the widgets so configured so that KeyPress, KeyRelease, ButtonPress and ButtonRelease events are ignored (with press events generating a call to bell). It then acquires a local grab for $widget. The state of the widgets and the grab is restored by a call to $widget->Unbusy."

emc

"Being forced to write comments actually improves code, because it is easier to fix a crock than to explain it. "
—G. Steele

Comment on Re: How do I set a busy cursor in Tk

Replies are listed 'Best First'.
Re^2: How do I set a busy cursor in Tk by radiantmatrix (Parson) on Mar 30, 2006 at 20:09 UTC
Excellent quote. In summary: `# I'm about to become busy! $mw->Busy; $mw->update; some_busy_sub_call(); # Ok, I'm not busy anymore $mw->Unbusy; $mw->update;` [download] <-radiant.matrix-> A collection of thoughts and links from the minds of geeks The Code that can be seen is not the true Code I haven't found a problem yet that can't be solved by a well-placed trebuchet	[reply] [d/l]