[ALLY] Retroweb

From: gchiu::compkarori::co::nz at: 16-Apr-2001 10:01

I was wondering how useful it would be to try Rebol's VID
for browsing purposes to communicate with a web server.

I modified my home page to contain some VID, and the
following displays it.

To be useful, what I really require is a VID table superior
to html tables, that allows me to manipulate large amounts
of data - eg sort on columns, search on columns etc without
downloading the data each time. A reblet as it were. Is such
a beast available or in the making??

REBOL [
    Title: "Rebol VID Browser"
    Date: [ 15-April-2001 ]
    Version: .2
    Author: "Graham Chiu"
    Rights: "Copyright G Chiu 2001"
    File: %rbrowser.r

    Notes: {
        reads layout code from a web page and displays it
    }
]

    testurl: http://203.79.82.38
    currenturl: copy ""

    text: copy ""
    layout-code: [
        copy laycode [ "<layout>" to "</layout>" ] (append
text laycode) |
        skip
    ]

    rbrowse: func [
    { browses web pages marked up in Rebol VID }
    rurl [url!]
    /local targetpage
    ] [

    text: copy ""
    targetpage: read rurl

    parse targetpage [ to "<!--" some layout-code ]
    replace/all text <layout> ""

    either empty? text
    [   view layout [   size 800x600
                at 200x250
                vh2 join form rurl " does not contain VID
source"
                at 200x300
                button "back" [ rbrowse currenturl ]
            ]
    ]
    [   currenturl: rurl
        view layout load text
    ]
]

rbrowse testurl

--
Graham Chiu

[1] · 2 · See whole thread