package doWork;

use strict;

use Tk;
use itemDispatch;

my $PROGRESS = 0;

sub StartWork {
	my $increment = shift || die "Missing Increment";

	my $c=0;
	while ($c<99) {
		sleep 1;
		itemDispatch::Activate('PROGRESS', $increment);
		$c += $increment;
	}
}

1;