Leser: 2
3 Einträge, 1 Seite |
1
2
3
4
5
6
# alle Sekunde die o.g. Infos aktualisieren + Zeit anzeigen
$ids->{objectChange} = $mw->repeat(
60000,
sub{ #blablabla
},
);
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
sub down{
my $nextm = stll(shift, 2);
my $nexts = stll(shift, 2); #hier noch nexts und nextm zweistellig machen
$fenster->after(1000 => sub { $text3->configure(-text => $nextm .':'. $nexts);
if($nextm <= 0 and $nexts <= 0){
event();
} else {
if($nexts == 0){
$nextm--; #nextm = nächtse minute
$nexts = 59; #nexts= nächstesekunde
} else { $nexts--; }
down($nextm, $nexts); }
}
);
}
3 Einträge, 1 Seite |