$Tkx::TRACE=64; # at top of your program

$progress++; Tkx::i::DoOneEvent(0); # allow gui to update