[REBOL] simple view problem
From: nomoreshoes::btopenworld::com at: 26-Oct-2001 4:54
would like this prog to do 2 things it wont do at the momment.
1. combine strings to form ftp url without any spaces.
2. connect to it when connect button pressed and display top level dir in
the file list
ideally will combine string + do the connecting and refreshing using the
feel: aspect of view.
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: "oct 2001"
Rights: "as if this is worth money he he"
Purpose "quickly view contents of a url so i know whats on them"
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: "ftp://"user/text":"pass/text"@"url/text]]
button 96 "exit" [show ohh] return