Mercurial > repos > rhope
diff calc.rhope @ 0:76568becd6d6
Rhope Alpha 2a source import
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Tue, 28 Apr 2009 23:06:07 +0000 |
parents | |
children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/calc.rhope Tue Apr 28 23:06:07 2009 +0000 @@ -0,0 +1,37 @@ +/* + 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 +}