The lister progress command was the first implementation of a progress
display ARexx command for listers.
As with the lister newprogress command, this is actually a sub-command of
the lister set command.
If you don't need the extra information space and options that the
lister newprogress command can supply, then this is a simpler command to
set up and use.
When you have finished using the progress bar you can turn it off using the
lister clear command.
Example:
/* ListerProgress.dopus5 */
options results
address 'DOPUS.1'
dopus front
lister new mode name "RAM:"
handle = result
lister wait handle
lister set handle progress 100 "Lister Progress Demo"
lister clear handle abort
do i = 100 to 0 by -5
lister set handle progress name i"% left"
lister set handle progress count i
lister query handle abort
if result = 1 then leave
address command wait 1
end
lister clear handle progress
address command wait 2
lister close handle
dopus back
exit
|