module test

import StdMaybe

import Control.Applicative
import Control.Monad
import Control.Monad.Identity
import Control.Monad.State

import Gtk.Signal
import Gtk.State
import Gtk.Widgets

Start w = runGtk app w
where
	app =
		newWindow "Hello!" Nothing >>= \window ->
		installSignalHandler window (DestroyHandler quit)