[REBOL] First public version of RUI available

[rebol]

Hello,

Here's something I've been cooking on for some time: RUI
RUI is a mixture of a http server and a gui engine for REBOL.

download at http://195.181.8.32/dm98411/rebol/


Best regards
Thomas Jensen


RUI example script:

.title: "Calculator"

main-window: make window! [

    .title: "Calculator"

    input: text-field ""
    result: text/bold/size "= " "+1"
    result/.bgcolor: 200.200.200

    key: func [value /local] [
        button (rejoin [" " trim form value " "]) compose [append input/.value (value)]
    ]

    allowed: charset "0123456789 +-/*.()"

    calc-button: button " = " [
        if error? try [
            foreach char input/.value [if not found? find allowed char [make error! 
""]]
            result/.value: join "= " do input/.value
        ] [
            result/.value: "Error evaluating expression"
        ]
    ]

    buttons: matrix [
        [key "(" key ")" key " / " key " * "]
        [key "7" key "8" key "9" key " - "]
        [key "4" key "5" key "6" key " + "]
        [key "1" key "2" key "3" calc-button]
    ]

    .value: vertical [
        result
        input
        buttons
    ]

]