Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Does anyone know how to make the cursor "busy" (i.e. Hour glass on Win32) using Tk?

Replies are listed 'Best First'.
Re: How to signify a "busy" cursor with Tk
by jasonk (Parson) on Mar 12, 2003 at 19:17 UTC

    You can make the whole window busy, which will do the right thing automatically:

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

    Or you can just change the cursor, although this method doesn't prevent people from trying to interact with your application while it is busy, which the above does:

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

    We're not surrounded, we're in a target-rich environment!
      Thanks jasonk!