module Main where

import Graphics.UI.Gtk
import Graphics.UI.Gtk.Glade

main = do
         initGUI

         -- load up the glade file
         dialogXmlM <- xmlNew "simple.glade"
         let dialogXml = case dialogXmlM of
               (Just dialogXml) -> dialogXml
               Nothing -> error "can't find the glade file \"simple.glade\" \
                                \in the current directory"

         -- get a handle on a couple widgets from the glade file
         window <- xmlGetWidget dialogXml castToWindow "window1"
         button <- xmlGetWidget dialogXml castToButton "button1"

         -- do something with the widgets, just to prove it works
         button `onClicked` putStrLn "button pressed!"
         window `onDestroy` mainQuit

         -- show everything
         widgetShowAll window
         mainGUI