From ffe9fd2b2a5d14731c5d78086e6c2d1b4ed23b1c Mon Sep 17 00:00:00 2001
From: Raymond <Raymond@.(none)>
Date: Sat, 11 Sep 2010 14:05:28 +0200
Subject: [PATCH] Made test file nicer.

---
 Tests/PS/messagebox.simba | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/Tests/PS/messagebox.simba b/Tests/PS/messagebox.simba
index f03d91a..3c6e3e5 100644
--- a/Tests/PS/messagebox.simba
+++ b/Tests/PS/messagebox.simba
@@ -1,4 +1,6 @@
 program new;
+var
+  Value : string;
 begin
   ShowMessage('ShowMessage!');
   Writeln('MessageBox -> ');
@@ -14,4 +16,7 @@ begin
     mrIgnore: Writeln('Pressed Ignore');
     mrCancel: Writeln('pressed Cancel');
   end;
+  Writeln('InputQuery -> ');
+  Value := 'Edit.. or not?';
+  Writeln(format('Result of inputquery = [%s] the value = [%s]',[booltostr(InputQuery('Enter something funny','ENTER HERE',value)),value]));
 end.