8.11 DUIM-Gadgets Module

<progress-bar>

Open abstract instantiable class

The class of progress bar windows.

<value-range-gadget>

orientation:: An instance of type one-of(#"horizontal", #"vertical"). Default value: #"horizontal".

duim-gadgets

duim-gadgets

The class of progress bar windows.

Figure 8.23 A progress bar

The orientation: init-keyword lets you specify whether the progress bar should be horizontal or vertical.

Internally, this class maps into the Windows progress indicator control.

The following code creates an "empty" progress bar:

*prog* := contain
            (make(<progress-bar>, 
                  value-range: 
                  range(from: 0, to: 100)));

By setting the gadget value of the progress bar, the progress of a task can be monitored as follows:

for (i from 0 to 100) gadget-value(*prog*) := i end;