diff options
Diffstat (limited to 'support_check.icl')
| -rw-r--r-- | support_check.icl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/support_check.icl b/support_check.icl index 032b5de..89e9fcc 100644 --- a/support_check.icl +++ b/support_check.icl @@ -13,11 +13,11 @@ Start world 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 +# dialog = Dialog "Support - CheckControl" controls [WindowClose (noLS closeProcess)] += startIO NDI Void (initialise dialog) [] world where - initialise hello pst - # (error,pst) = openDialog 0 hello pst + initialise dialog pst + # (error,pst) = openDialog 0 dialog pst | error <> NoError = closeProcess pst | otherwise = pst |