UL_AdvanceProgress

Revision 1
Revised on 19/03/95 18:13

Description

Advance the progress indicator by one step. Takes an optional line of text to display in the progress window.

This routine assumes that you have already called UL_StartProgress to create the progress window (a progress window is a dialog window like the one the finder uses to display the progress of a file copy).

UL_AdvanceProgress should be called each time you want to advance the progress indicator by one step.

When you have finished with the progress, calling UL_FinishProgress will dismiss it.

Code

on UL_AdvanceProgress text
  global gUL_ProgressCount, gUL_ProgressTotal
  
  add 1 to gUL_ProgressCount
  
  set the comment of window "Progress" to text
  set the progress of window "Progress" to gUL_ProgressCount/gUL_ProgressTotal
end UL_AdvanceProgress