[REBOL] help please simple view problem part 2
From: nomoreshoes::btopenworld::com at: 29-Oct-2001 22:18
need connect button to take ftp url -inc user+pass- 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(
once i got this sorted i can make it look pretty and get stuck [i mean to
work] on new things.
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