diff options
| author | Camil Staps | 2015-08-10 15:00:33 +0200 |
|---|---|---|
| committer | Camil Staps | 2015-08-10 15:00:33 +0200 |
| commit | 0b809c979c773109ff09edd44618e38a4fb6ca50 (patch) | |
| tree | 7a339894f48a23affb72da0b4cd2676f61d5098b /support_popup.icl | |
| parent | ObjectIO tests (diff) | |
Make target & variable names
Diffstat (limited to 'support_popup.icl')
| -rw-r--r-- | support_popup.icl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/support_popup.icl b/support_popup.icl index 50485b7..d6c1ca6 100644 --- a/support_popup.icl +++ b/support_popup.icl @@ -17,11 +17,11 @@ Start world PopUpControl [("Width " +++ toString i, id) \\ i <- [1..5]] 3 [ControlWidth (PixelWidth 500)] ] # controls = ButtonControl "For callbacks" [ControlId textid] :+: ListLS popups -# hello = Dialog "Support - PopUpControl" controls [WindowClose (noLS closeProcess), WindowViewSize {w=1000,h=500}] // because vertical space isn't reserved properly -= startIO NDI Void (initialise hello) [] world +# dialog = Dialog "Support - PopUpControl" controls [WindowClose (noLS closeProcess), WindowViewSize {w=1000,h=500}] // because vertical space isn't reserved properly += 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 |