# Emulate Perl/Tk's repeat() method
    sub repeat {
        my $ms  = shift;
        my $sub = shift;
        my $repeater; # repeat wrapper
        
        # Die folgende Zeile verstehe ich nicht
        $repeater = sub { $sub->(@_); Tkx::after($ms, $repeater); };

        Tkx::after($ms, $repeater);
    }