Thread tk script in laufender for für 2 sekunden anhalten (5 answers)
Opened by popcorn5 at 2006-11-27 18:59

PerlProfi
 2006-11-29 21:56
#45973 #45973
User since
2006-11-29
340 Artikel
BenutzerIn
[default_avatar]
Man kann auch eine waitVariable() benutzen.
Ich würde sagen das wäre der sauberste Weg:
Code: (dl )
1
2
3
my $v=0;
$mw->after(5000, sub { $v=1 });
$mw->waitVariable(\$v);


Und das geht in einer Schleife:
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#!/usr/bin/perl
use strict;
use warnings 'all';
use Tk;

my $mw = tkinit;

for (0..100)
{
    my $v=0;
    $mw->after(100, sub { $v=1 });
    $mw->waitVariable(\$v);

    print "Nummer $_\n";
}

exit;


Ich glaube da gibt es nur bei Windows einen Fehler. Wenn man die Titelzeile des Fensters anklickt, bleiben alle Ereignisse der GUI stehen, bis man wieder loslässt.
Das dürfte aber kein Problem sein, oder?

- PerlProfi -

View full thread tk script in laufender for für 2 sekunden anhalten