Brilliant. Works on Rebol 2.2.0.10.1 Solaris-2 version but not on
2.2.0.3.1 Win95 version.
______________________________ Reply Separator _________________________________
Subject: [REBOL] First public version of RUI available
Author: [EMAIL PROTECTED] at Internet
Date: 2000/3/16 12:18 AM
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
]
]
Received: from brando.rebol.net ([199.4.95.216]) by wbnts05.wpelb.gov.hk with
SMTP
(IMA Internet Exchange 3.11) id 00018D5F; Thu, 16 Mar 2000 07:27:31 +0800
Received: from office.rebol.net (gibraltar.rebol.net [192.168.2.1])
by brando.rebol.net (8.9.3/8.9.3) with SMTP id QAA14880;
Wed, 15 Mar 2000 16:27:32 -0800
To: [EMAIL PROTECTED]
From: [EMAIL PROTECTED]
Reply-To: [EMAIL PROTECTED]
Date: Thu, 16 Mar 2000 0:18:04 +0100
Subject: [REBOL] First public version of RUI available
Message-Id: <[EMAIL PROTECTED]>
X-REBOL: 2.2.0.4.2 "The Internet Messaging Language (TM) WWW.REBOL.COM"
MIME-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Precedence: bulk
X-MindSpring-Loop: [EMAIL PROTECTED]
X-Mailer: YAM 2.0 [060] AmigaOS E-Mail Client (c) 1995-1999 by Marcel Beck
http://www.yam.ch
Content-Transfer-Encoding: 8bit
X-MIME-Autoconverted: from quoted-printable to 8bit by brando.rebol.net id
QAA14470
X-SELMA: [REBOL] 124447
