Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search

[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. :-(