how do i refresh contents of a list-view
[1/2] 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
]
[2/2] from: arolls:idatam:au at: 5-Nov-2001 14:30
view layout [
t: text-list "hello" "there"
button [t/lines: ["rebol" "here"] show t]
]
The button updates the text-list with a block of
strings.
> -----Original Message-----
> From: dennis [mailto:[Nomoreshoes--btopenworld--com]]
<<quoted lines omitted: 32>>
> 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
]
Notes
- Quoted lines have been omitted from some messages.
View the message alone to see the lines that have been omitted