Ticket #2405: hello.hs
| File hello.hs, 350 bytes (added by wagstaff, 5 years ago) |
|---|
| Line | |
|---|---|
| 1 | import Graphics.UI.Gtk |
| 2 | main :: IO () |
| 3 | main = do |
| 4 | initGUI |
| 5 | window <- windowNew |
| 6 | button <- buttonNew |
| 7 | set window [ containerBorderWidth := 10, |
| 8 | containerChild := button ] |
| 9 | set button [ buttonLabel := "Hello World" ] |
| 10 | onClicked button (putStrLn "Hello World") |
| 11 | onDestroy window mainQuit |
| 12 | widgetShowAll window |
| 13 | mainGUI |
