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

[REBOL] Re: 'feel docs

From: nomoreshoes:btopenworld at: 6-Nov-2001 14:11

hi i just got to grips with feel myself. so here is my first simple little program that actually works. for some reason if u make the `password` box hidden then it doesnt work so i had to leave it in plan view. if this helps and u want me to explain how this script works mail me directly and i will tell u. i found the docs a bit hard to understand too by the way, this little thing took me ages - and its not perfect because if the list is bigger than what u can see if won`t scroll - but that is my next adventure in learning view. REBOL [ Title: "url dir viewer v 0.1" Date: cvs-date "$Date: 2001/04/29 16:00:17 $" Rights: "as if this is worth money he he" Purpose "quickly view contents of a url" ] view layout [ style lab label 80 left across lab vh2 "view website contents" gold text "v 0.1" return lab "url" url: field return lab "user name:" user: field return lab "password:" pass: field return lab "Files:" t: text-list return return lab button 96 "connect" feel [ engage: func [face action event] [if action = 'down [cats: probe join ftp:// [user/text : pass/text "@" url/text] t/lines: load cats show t]] ] button 96 "exit" feel [ engage: func [face action event] [if action = 'down [quit] ] ] ]