view release on metacpan or  search on metacpan

lib/Gtk2/Ex/DBITableFilter/BrowserBar.pm  view on Meta::CPAN

	$limit->{end} = $limit->{total} if $limit->{end} >= $limit->{total};
	$limit->{step} = $limit->{increment};
	if ($limit->{start} + $limit->{increment} > $limit->{end}) {
		$limit->{step} = $limit->{end} - $limit->{start};
	}
	$parent->{limit} = $limit;
	$parent->refresh;
	return 0;
}

sub update_progress_label {
	my ($self, $action) = @_;
	if ($action eq 'Counting') {
		$self->{progress}->{bar}->set_text('Counting');
		return 0;
	}
	my $parent = $self->{parent};
	my $limit = $parent->{limit};
	$limit->{end} = $limit->{total} if $limit->{end} >= $limit->{total};
	my $countstring = "$action ".$limit->{start}.
	                  ' to '.$limit->{end}.