my $o_obj = new Tk::Draw($c1, \&done_drawing, $h_opts);

sub done_drawing {
	my ($o_obj, $a_points, $a_ids) = @_;
	map { $o_obj->canvas->delete($_) } @a_ids;
}