can't seem to make it fly on NT2000....no other problems
do %rui-server.r and it just runs and runs....no errors???dunno me...
----- Original Message -----
From: <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Wednesday, March 15, 2000 6:18 PM
Subject: [REBOL] First public version of RUI available
> 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
> ]
>
> ]
>
>
