Skip to content

Instantly share code, notes, and snippets.

@earl earl/r3gui-httpget.r3 Secret
Last active Dec 18, 2015

What would you like to do?
rebol [title: "GUI & Async HTTP Demo" author: 'abolka date: 2013-06-18]
do-download: closure [url-field content-area /local url port] [
url: to-url get-face url-field
port: make port! url
port/awake: funct [event] [
switch event/type [
connect [
;; Use HTTP's READ actor to send the HTTP request once we are
;; connected.
read event/port
read [
;; Schedule the low-level TCP port for further reading.
;; (@@ Smells! Should be taken care of by the HTTP scheme.)
read event/port/state/connection
done [
;; Use HTTP's COPY actor to read the full website content once
;; reading is finished.
set-face content-area to-string copy event/port
close event/port
return true
open port
view [
vpanel [
title "Async HTTP GUI Demo"
hpanel [
text "URL"
url-field: field ""
content-area: area
hpanel [
button "Download" on-action [
do-download url-field content-area
button "Quit" on-action [
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.