sub Tk::Widget::tk_sleep {
 #Parameter aus subaufruf sichern
 my($main, $s) = @_;
 #Variable deklarieren
 my $sleep_dummy = 0;
 #Tk::after aufrufen und die Anzahl der übergebenen Zahl
 #mal 1000 nehmen, da ein after Aufruf mit 1000 ziemlich genau 
 #eine Sekunde ist. Nach Ablauf dieser Zeit wird die Variable
 #sleep_dummy durch ihre Inkrementierung auf 'true' gesetzt.
 $main->after($s*1000,
 sub { $sleep_dummy++ });
 #Der normale Scriptablauf wird hinausgezögert, bis
 #die Variable sleep_dummy 'true' ist
 $main->waitVariable(\$sleep_dummy)
 unless $sleep_dummy;
 }