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

[REBOL] simple view problem

From: nomoreshoes::btopenworld::com at: 26-Oct-2001 4:54

please help. 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. REBOL [ 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" ] 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 hide return lab "Files:" ohh: text-list data load %. feel [ redraw: func [face act pos] [print act] ] return return lab button 96 "connect" [alert [ass: "ftp://"user/text":"pass/text"@"url/text]] button 96 "exit" [show ohh] return ]