This command is really lister set newprogress , it is another
sub-command of the lister set command but was worth mentioning by itself.
This command displays a progress bar over a lister that you can update as
an indication to the script users that something is happening. It is similar
to the progress bar that appears when you Copy, Delete, Move, etc files from
one lister to another.
Example:
/* ListerNewprogress.dopus5 */
options results
address 'DOPUS.1'
dopus front
plural. = 's'
plural.1 = ''
lister new mode name 'SYS:'
handle = result
lister set handle newprogress name info info2 bar abort
lister set handle newprogress title 'Newprogress Example'
lister set handle newprogress info2 'Hit abort to end.'
do i = 1 to 10
text = i' second'||plural.i
lister set handle newprogress name '"'text'"'
text = (10 - i)' second'plural.(10 - i)' to go.'
lister set handle newprogress info '"'text'"'
lister set handle newprogress bar 10 i
lister query abort
if result then leave
address command wait 1
end
lister clear handle progress
address command wait 2
lister close handle
dopus back
exit
The lister newprogress command provides more information than the
lister progress command, so it is proportionally more work to set up.
|