[REBOL] How to do a progress bar?
From: bpaddock:csonline at: 3-Sep-2001 7:38
I'd like to add a progress bar to my patent downloading program (if you've
been following that thread).
I've looked at progress.r in the script library, and several other examples
that I could find of progress bars. easy-vid.r, source request-download,
read-net, read-thru etc...
Unfortunately they have left me confused because they are full of mystery
constants with no explanation as to what they are for, or they look
recursive: progress: layout[ p:progress...
I have the following loop, where LastPage is what it says, say 7 for example.
I want to light one more block on the bar for each time CurrentPageNumber
goes up. How do I get there?
repeat CurrentPageNumber to-integer LastPage [
GetPageURL: to-url rejoin[ "http://" pdf-url to-string CurrentPageNumber ]
print GetPageURL
OutputNameFILE: probe to-file rejoin[ "US" PatentNumber "pg"
CurrentPageNumber ".pdf" ]
write/binary OutputNameFILE read/binary GetPageURL
]
Also does any one know what read-net reads? Is it binary or text?
Rebol looks like it has a lot of potential, but I'm disappointed that it
takes so much digging in the docs to find how to do any thing, and in the end
still have to come to the list and bother people for help. Case in point
read-net: Description ???
, and thats what it says "???" for the
description. :-(
