From 16df185b13a664389d29ea47141ea88e6166bd84 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Wed, 19 Aug 2015 11:02:55 +0200
Subject: Moving objectio tests

---
 objectio/support_check.icl | 30 ------------------------------
 1 file changed, 30 deletions(-)
 delete mode 100644 objectio/support_check.icl

(limited to 'objectio/support_check.icl')

diff --git a/objectio/support_check.icl b/objectio/support_check.icl
deleted file mode 100644
index 17e4199..0000000
--- a/objectio/support_check.icl
+++ /dev/null
@@ -1,30 +0,0 @@
-module support_check
-
-// ********************************************************************************
-// Clean tutorial example program.
-//
-// This program can be used to test the different ControlAttributes for a 
-// CheckControl in a Dialog.
-// ********************************************************************************
-
-import StdEnv, StdIO
-
-Start :: *World -> *World
-Start world
-# (controlid, world) = openId world 
-# checks = [
-        CheckControl [("Item &" +++ toString i, Nothing, if (isOdd i) Mark NoMark, id) \\ i <- [1..5]] (Columns 2) [ControlPos (Left, zero), ControlHide],
-        CheckControl [("Item &" +++ toString i, Nothing, if (isOdd i) Mark NoMark, id) \\ i <- [1..5]] (Columns 2) [ControlPos (Left, zero), ControlId controlid],
-        CheckControl [("Item &" +++ toString i, Nothing, if (isOdd i) Mark NoMark, id) \\ i <- [1..5]] (Columns 2) [ControlPos (Left, zero), ControlSelectState Able],
-        CheckControl [("Item &" +++ toString i, Nothing, if (isOdd i) Mark NoMark, id) \\ i <- [1..5]] (Columns 2) [ControlPos (Left, zero), ControlSelectState Unable],
-        CheckControl [("Item &" +++ toString i, Nothing, if (isOdd i) Mark NoMark, id) \\ i <- [1..5]] (Columns 2) [ControlPos (Left, zero), ControlTip "Some tip"]
-    ]
-# controls = ListLS checks
-# dialog = Dialog "Support - CheckControl" 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