Mercurial > repos > rhope
view calc.rhope @ 17:d05184970c1c
Merged accidentally created head
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Tue, 26 May 2009 23:37:59 -0400 |
parents | 76568becd6d6 |
children |
line wrap: on
line source
/* This program implements a simple GUI calculator Currently only the Windows and Syllable ports of Rhope have GUI support */ Add[window] { [window]Get Value["right"] { <String@Real Number[~] { [window]Set Value["left", [~] + [[window]Get Value["left"]]] [window]Set Value["right", "0"] } } } Sub[window] { [window]Get Value["right"] { [window]Set Value["left", [<String@Real Number[ [window]Get Value["left"] ]] - [~]] [window]Set Value["right", "0"] } } Main[] { [[[[[[New@Window["Visuality Calculator", 400.0, 400.0] ]Add Widget["+", [New@Button["+", 20.0, 20.0]]Set Handler["click","Add"], 20.0, 60.0] ]Add Widget["-", [New@Button["-", 20.0, 20.0]]Set Handler["click","Sub"], 60.0, 60.0] ]Add Widget["left", [New@Input Box["0", 170.0, 20.0]]Set Type["numeric"], 20.0, 20.0] ]Add Widget["right", [New@Input Box["0", 170.0, 20.0]]Set Type["numeric"], 210.0, 20.0] ]Show[20.0,20.0] ]Wait Close }