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

[REBOL] Newbie: some questions about VID

From: apwing::zonnet::nl at: 27-Sep-2003 13:01

Hello, in the following trial program I have a few difficulties using VID. Question 1: how can I fill out the text-list. The results never show up Question 2: I tried the "hide"attribute on the pwd field; if I print the pwd field, I don't see the actual value, but only the *******. How to get (and print) the real value ? Kind regards, Arie van Wingerden ================ The program: ================== REBOL [ ] lay: layout [ style lab label 100 right across vh2 "Provide your e-mail account information" return lab "Userid" uid: field return lab "Password" pwd: field return lab "POP3 server" pop: field return lab button "Fetch e-mails" [fill] return lab "E-mails" emails: text-list 600x200 return ] fill: does [ clear emails/data count: 0 mails: read/lines to-url rejoin [ "pop://" uid/text ":" pwd/text "@" pop/text ] foreach mail mails [ count: count + 1 insert emails/data rejoin [ "===== mail #" count " =====" ] parse mail [ thru "From:" copy from to "^/" ] insert emails/data rejoin [ "From :" from ] parse mail [ thru "Date:" copy date to "^/" ] insert emails/data rejoin [ "Date :" date ] parse mail [ thru "Subject:" copy subject to "^/" ] insert emails/data rejoin [ "Subject:" subject ] ] if count = 0 [ insert emails/data " --- no e-mails found ---" show emails ] ] focus uid view lay