my $cmds = $tl->Frame;
$cmds->pack;
    
if (defined $idx) {
# Existing activity - OK Apply Delete Cancel
    $cmds->Button(-text => 'OK', -command => sub {&edit_entry($idx,$legentry);$tl->destroy;})
         ->pack(-side => 'left');
    $cmds->Button(-text => 'Apply', -command => [\&edit_entry, $idx, $legentry])
         ->pack(-side => 'left');
    $cmds->Button(-text => 'Delete', -command => sub {&delete_entry($idx);$tl->destroy;})
            ->pack(-side => 'left');
} else {
# New activity - OK Apply Cancel
    $cmds->Button(-text => 'OK', -command => sub {&add_entry($legentry);$tl->destroy;})
         ->pack(-side => 'left');
    $cmds->Button(-text => 'Apply', -command => [\&add_entry, $legentry])
         ->pack(-side => 'left');
}
$cmds->Button(-text => 'Cancel', -command => [$tl => 'destroy'])->pack(-side => 'left');

##</code><code>##

my @button = defined $idx ? (
    OK     => sub { &edit_entry($idx,$legentry); $tl->destroy; },
    Apply  => [\&edit_entry, $idx, $legentry],
    Delete => sub { &delete_entry($idx); $tl->destroy; },
    Cancel => [$tl => 'destroy'],
)
: (
    OK     => sub { &add_entry($legentry); $tl->destroy; },
    Apply  => [\&add_entry, $legentry],
    Cancel => [$tl => 'destroy'],
);

for($tl->Frame) {
    $_->pack;
    while(my ($text, $command) = splice @button, 0, 2) {
        $_->Button(-text => $text, -command => $command)
          ->pack(-side => 'left');
    }
}

##</code><code>##

print SAVE <<END;
for (0..$#activity) {
    my ($legend,$time,$start,$end,$elapsed) = 
        @{%{$activity[$_]}}{qw(legend timstr start end elapsed)};

# Add up times of current activity
    my $tsecs = 0;
    for my $i (0..$#$end) {
        $tsecs += tv_interval($start->[$i],$end->[$i]);
    }
    $tsecs += $elapsed if $elapsed;
    $tsecs += tv_interval($start->[-1],[gettimeofday]) if defined($current) && ($_ == $current);
    print SAVE <<END2;
[Button $legend]
time=$time
elapsed=$tsecs
END2
}

##</code><code>##

for (@activity) {
    print SAVE "[Button]\n";
    my $item;
    print SAVE "$item=" . $_->$item() for qw(legend time elapsed);
}