1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
module Main where
import Graphics.UI.Gtk
main = do
initGUI
-- Create the builder, and load the UI file
builder <- builderNew
builderAddFromFile builder "simple.ui"
-- Retrieve some objects from the UI
window <- builderGetObject builder castToWindow "window1"
button <- builderGetObject builder castToButton "button1"
-- Basic user interation
on button buttonActivated $ putStrLn "button pressed!"
on window objectDestroy mainQuit
-- Display the window
widgetShowAll window
mainGUI
|
