diff options
Diffstat (limited to 'objectio/tut2_4.icl')
| -rw-r--r-- | objectio/tut2_4.icl | 25 |
1 files changed, 0 insertions, 25 deletions
diff --git a/objectio/tut2_4.icl b/objectio/tut2_4.icl deleted file mode 100644 index 3b26c0a..0000000 --- a/objectio/tut2_4.icl +++ /dev/null @@ -1,25 +0,0 @@ -module tut2_4 - -// ******************************************************************************** -// Clean tutorial example program. -// -// This program creates a dialog that displays the "Hello world!" text. -// ******************************************************************************** - -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 "" - ( TextControl "Hello world!" [] - ) - [ WindowClose (noLS closeProcess) - ] - |