in reply to Re: Execute Tk::Button every X interval while button is pressed (and not released)
in thread Execute Tk::Button every X interval while button is pressed (and not released)

use Tk;
sub w{ warn @_ }
tkinit->Button(
  qw/ -repeatdelay 25
-repeatinterval 25
-command /, \&w,
)->pack;
MainLoop;

[download]
  • Comment on Re^2: Execute Tk::Button every X interval while button is pressed (and not released)
  • Download Code

In Section Seekers of Perl Wisdom