Help for this page

Select Code to Download

Select or download this
```
my $lb=update_time($mw)->pack(@top);
```

Select or download this

sub update_time {
    my $mw = shift;
...
    $mw->after(1);
    return $lbl;
}