Befehl solange ausführen wie button gedrückt - #44851 (Graphische Oberflächen)

Crian

2005-11-08 18:37

User since
2003-08-04
5873 Artikel
ModeratorIn

schick... sonst so:

Code: (dl )

use Tk;

my $mw = new MainWindow;

my $b = $mw->Button(-text => 'Run')->pack(-fill => 'x');

my $id;
my $i;

$b->bind('<ButtonPress-1>' => sub { $i = 0;
                                    $id = $mw->repeat(2, sub {print ++$i, "\n"}) } );
$b->bind('<ButtonRelease-1>' => sub { $id->cancel() } );

MainLoop();

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite