[REBOL] how do i refresh contents of a list-view
From: nomoreshoes::btopenworld::com at: 4-Nov-2001 22:20
pls help.
see the connect button in this [currently it only prints the dir name] - i
need to get the url there and refresh the list-view with the contents of the
chosen url ... how can i do this ?
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, eventually also upload and
download individual files"
]
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:" ddad: text-list
return
return
lab
button 96 "connect" feel [
engage: func [face action event]
[if action = 'down [print probe join ftp:// [user/text
:
pass/text "@" url/text] ] ]
]
button 96 "exit" feel [
engage: func [face action event]
[if action = 'down [exit] ]
] return
]
