[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] ]
]
]
