diff options
| author | Camil Staps | 2015-08-19 11:02:55 +0200 |
|---|---|---|
| committer | Camil Staps | 2015-08-19 11:02:55 +0200 |
| commit | 16df185b13a664389d29ea47141ea88e6166bd84 (patch) | |
| tree | 2e58fb34ea3da76f99fe6b6feb4076b3948af1b7 /objectio/support_check.icl | |
| parent | Comments & cleanup (diff) | |
Moving objectio tests
Diffstat (limited to 'objectio/support_check.icl')
| -rw-r--r-- | objectio/support_check.icl | 30 |
1 files changed, 0 insertions, 30 deletions
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 - |