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

Hi, I'm using perl-TK and I want that while a certain subroutine is running, the cursor will change to hourglass (or watch), and after the subroutine ends, the cursor will change back to the original pointer. How do I do it? Thanks, Sagi

Replies are listed 'Best First'.
Re: perl TK - change the cursor
by Anonymous Monk on May 12, 2009 at 07:31 UTC 
    #!/usr/bin/perl --
use strict;
use warnings;

use Tk;
my $mw = tkinit;
my $labelvar = 0;

$mw->Label(-textvariable=>\$labelvar )->pack;
$mw->Button( -text => "Button", -command => sub {
    $mw->Busy;
    for( 1 .. 10){
        $labelvar=$_;
        $mw->update;
        select(undef, undef, undef, 0.25);#sleep of 250 milliseconds
    }
    $mw->Unbusy;
})->pack;

$mw->MainLoop;

    [download]
[reply]
[d/l]
      Thanks man, it worked!!!
[reply]

Back to Seekers of Perl Wisdom