Lister NewProgress

back to section start!
  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.

DOpus PLUS - giving you that bit extra...