module hello

import StdEnv, StdIO

Start :: *World -> *World
Start world = startIO NDI Void initialise [] world
where
    initialise pst
    # (error,pst)       = openDialog Void hello pst
    | error <> NoError  = closeProcess pst
    | otherwise         = pst

    hello = Dialog "ObjectIO" controls [WindowClose (noLS closeProcess)]
    controls = TextControl "Hello World!" [] :+: 
                TextControl "Text 2" [] :+:
                ButtonControl "Button" []