[REBOL] Re: simple view problem part 2
From: nomoreshoes::btopenworld::com at: 26-Oct-2001 21:57
need connect button to take ftp url and connect to it, then and refresh +
display top level dir in
the file list.
i suspect i need the whole feel: aspect of view but cannot get me head
around it :o(
i would like the simplist possible solution please - ideally with some
comments to help me understand what is going on so i can learn.
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, eventually also upload and
download individual files"
style lab label 80 left
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 hide return
lab "Files:" ohh: text-list data load %. feel [
redraw: func [face act pos] [print act] ] return
button 96 "connect" [alert [ ass:[ probe join ftp:// [user/text ":"
pass/text "@" url/text]]]
button 96 "exit" [exit] return