www.jammni.de

module Main where
import Graphics.UI.Gtk
import Graphics.UI.Gtk.Glade
main = do
         initGUI
          -- gladeFile wird geladen
              dialogXmlM <- xmlNew "spidergui.glade"
         let dialogXml = case dialogXmlM of
               (Just dialogXml) -> dialogXml
               Nothing -> error "can't find the glade file \"spidergui.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"

--diese Teile müssten dann auch noch angesprochen werden
-- Weiss leider nicht, ob die Begriffe entry und textview richtig sind, um sie 
anzusprechen (wir so ein glade bezeichnet)
        entry <- xmlGetWidget dialogXml castToEntry "entry1"
        entry <- xmlGetWidget dialogXml castToEntry "entry2"
        textview <- xmlGetWidget dialogXml castToTextview "textview1"
         -- jetzt können wir mit dem Button arbeiten
         button `onClicked` putStrLn "button pressed!"
         window `onDestroy` mainQuit

         -- alles zeigen
         widgetShowAll window
         mainGUI