blob: 5717addda142c23a85c74f7319c2c0f3eb9badf6 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
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)
|
