diff options
Diffstat (limited to 'objectio/support_text.icl')
| -rw-r--r-- | objectio/support_text.icl | 30 |
1 files changed, 0 insertions, 30 deletions
diff --git a/objectio/support_text.icl b/objectio/support_text.icl deleted file mode 100644 index 21cfc05..0000000 --- a/objectio/support_text.icl +++ /dev/null @@ -1,30 +0,0 @@ -module support_text - -// ******************************************************************************** -// Clean tutorial example program. -// -// This program can be used to test the different ControlAttributes for a -// TextControl in a Dialog. -// ******************************************************************************** - -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 - |