From 530e77f1be5e866b9fede2d35290725b98f6ce57 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Mon, 10 Aug 2015 15:01:22 +0200
Subject: Support check for RadioControl, SliderControl and TextControl

---
 support_text.icl | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 support_text.icl

(limited to 'support_text.icl')

diff --git a/support_text.icl b/support_text.icl
new file mode 100644
index 0000000..d5e3d01
--- /dev/null
+++ b/support_text.icl
@@ -0,0 +1,23 @@
+module support_text
+
+import StdEnv, StdIO
+
+Start :: *World -> *World
+Start world
+# (id, world) = openId world 
+# texts = [
+        TextControl "Hide"  [ControlHide],
+        TextControl "Id"    [ControlId id],
+        TextControl "Pos"   [ControlPos (Left, zero)],
+        TextControl "Tip"   [ControlTip "Some tip"],
+        TextControl "Width" [ControlWidth (PixelWidth 500)]
+    ]
+# controls = ListLS texts
+# dialog = Dialog "Support - TextControl" controls [WindowClose (noLS closeProcess)]
+= startIO NDI Void (initialise dialog) [] world
+where
+    initialise dialog pst
+    # (error,pst)       = openDialog 0 dialog pst
+    | error <> NoError  = closeProcess pst
+    | otherwise         = pst
+
-- 
cgit v1.2.3