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