diff options
| author | Camil Staps | 2015-08-10 15:01:22 +0200 |
|---|---|---|
| committer | Camil Staps | 2015-08-10 15:01:22 +0200 |
| commit | 530e77f1be5e866b9fede2d35290725b98f6ce57 (patch) | |
| tree | 341e71ed28bec2f640d969fb04b5cc47de25a443 /support_text.icl | |
| parent | Make target & variable names (diff) | |
Support check for RadioControl, SliderControl and TextControl
Diffstat (limited to 'support_text.icl')
| -rw-r--r-- | support_text.icl | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/support_text.icl b/support_text.icl new file mode 100644 index 0000000..d5e3d01 --- /dev/null +++ b/support_text.icl @@ -0,0 +1,23 @@ +module support_text + +import StdEnv, StdIO + +Start :: *World -> *World +Start world +# (id, world) = openId world +# texts = [ + TextControl "Hide" [ControlHide], + TextControl "Id" [ControlId id], + TextControl "Pos" [ControlPos (Left, zero)], + TextControl "Tip" [ControlTip "Some tip"], + TextControl "Width" [ControlWidth (PixelWidth 500)] + ] +# controls = ListLS texts +# dialog = Dialog "Support - TextControl" 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 + |