Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"
 
PerlMonks  

perl tk repeat() problem

by ghosh123 (Monk)
on Feb 22, 2013 at 14:55 UTC ( [id://1020178]=perlquestion: print w/replies, xml ) Need Help??

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

Hi
I have a repeat() function in my perl tk code which should by default invoke a routine every 5 secs.

$mw->repeat(5000, \&func() );

How can I change its timer through an Entry box widget. Suppose I have an Entry box widget and whatever value I put in it, the repeat() should call the event with that frequency instead of the default. 

my $entry = $frame->Entry(-textvariable=>\$time)->pack;

[download]

I have seen this link below , but not quite able to figure out how to do it, please give an example
http://search.cpan.org/dist/Tk/pod/after.pod
Thanks.

Replies are listed 'Best First'.
Re: perl tk repeat() problem
by BrowserUk (Patriarch) on Feb 22, 2013 at 15:02 UTC

    If you assign the return value to a variable:  my $timer = $mw->repeat(5000, \&func() );,

    then when it is time to change it, you can cancel the old one: $timer->cancel;

    and then re-create it with the new values: $timer = $mw->repeat( $time, \&func() );

    With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
    Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
    "Science is about questioning the status quo. Questioning authority".
    In the absence of evidence, opinion is indistinguishable from prejudice.
[reply]
[d/l]
[select]
Re: perl tk repeat() problem
by Anonymous Monk on Feb 22, 2013 at 15:04 UTC
    funny :) 
    sub func {
   if ( $oldtimeout != $time ){
## cancle timer
    $oldtimeout = $time;
## re-schedule timer
   }
}

    [download]
[reply]
[d/l]

Back to Seekers of Perl Wisdom

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: perlquestion [id://1020178]
Approved by BrowserUk
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others examining the Monastery: (4)
As of 2024-04-19 21:05 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found