# HG changeset patch
# User Mike Pavone <pavone@retrodev.com>
# Date 1317972244 25200
# Node ID d0e3a13c1bd9f20ff928012e6276063b89437e32
# Parent  170ad9cb63849f86c1fc03fb8c3c75d2916d0213
Remove old calculator example

diff -r 170ad9cb6384 -r d0e3a13c1bd9 calc.rhope
--- a/calc.rhope	Fri Oct 07 00:22:31 2011 -0700
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,37 +0,0 @@
-/*
-	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
-}