objectio/hello.icl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

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" []