added empty GTK-Hello-World-Project

This commit is contained in:
Stefan Dresselhaus
2013-12-22 23:29:11 +01:00
parent 2fa501e272
commit c46e24befd
6 changed files with 50 additions and 0 deletions

15
src/Main.hs Normal file
View File

@ -0,0 +1,15 @@
import Graphics.UI.Gtk
main :: IO ()
main = do
initGUI
window <- windowNew
button <- buttonNew
set window [ containerBorderWidth := 10,
containerChild := button ]
set button [ buttonLabel := "Hello World" ]
onClicked button (putStrLn "Hello World")
onDestroy window mainQuit
widgetShowAll window
mainGUI