updatePB <- function(start.iter, end.iter, adapting)
{
  tcltk:::tkProgressBar(title=ifelse(adapting, "Adapting","Updating"),
                        label="Iteration 0", min = start.iter, max=end.iter,
                        initial=start.iter)
}

setPB <- function(pb, iter)
{
  tcltk:::setTkProgressBar(pb, iter, label=paste("Iteration",iter))
}