view release on metacpan or  search on metacpan

bin/org-daemon  view on Meta::CPAN

sub tk_do_one_iteration {
    if (check_for_updates()) {
	update_lb();
    }

    check_for_alarms();

    colorize_entries();
}

sub update_lb {
    if ($overview_widget eq 'listbox') {
	$lb->delete(0, "end");
    } else {
	$lb->delete('all');
    }
    @lb_contents = ();
    my @dates = map { @{ $_->{dates} } } values %org_files;
    @dates = sort { $a->{epoch} <=> $b->{epoch} } @dates;
    if (!@dates) {
	if ($overview_widget eq 'listbox') {