module tut6_8

// ********************************************************************************
// Clean tutorial example program.
//
// This program shows "Hello world!" using a Notice.
// ********************************************************************************

import StdEnv, StdIO
import Notice

Start :: *World -> *World
Start world = startIO NDI Void (openNotice hello) [] world
where
    hello = Notice ["Hello world!"] (NoticeButton "Quit" (noLS closeProcess)) []