Ticket #742: main.hs

File main.hs, 253 bytes (added by guest, 6 years ago)
Line 
1import Graphics.SOE
2
3
4main    =       runGraphics (
5                        do      print "a"
6                                w <- openWindow "Hello" (300,300)
7                                print "b"
8                                drawInWindow w (text(100,200) "Hello graphics world!")
9                                print "b"
10                                k <- getKey w
11                                print "d"
12                                closeWindow w
13                        )