diff options
Diffstat (limited to 'objectio/support_check.icl')
| -rw-r--r-- | objectio/support_check.icl | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/objectio/support_check.icl b/objectio/support_check.icl new file mode 100644 index 0000000..032b5de --- /dev/null +++ b/objectio/support_check.icl @@ -0,0 +1,23 @@ +module support_check + +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 +# hello = Dialog "Support - CheckControl" controls [WindowClose (noLS closeProcess)] += startIO NDI Void (initialise hello) [] world +where + initialise hello pst + # (error,pst) = openDialog 0 hello pst + | error <> NoError = closeProcess pst + | otherwise = pst + |