It kills the Mac version of Rebol.
> From: [EMAIL PROTECTED]
> Reply-To: [EMAIL PROTECTED]
> Date: Thu, 16 Mar 2000 0:18:04 +0100
> To: [EMAIL PROTECTED]
> 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
> ]
>
> ]
>
>
>
