--- /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
+}