~ubuntu-branches/ubuntu/lucid/gtk2hs/lucid

« back to all changes in this revision

Viewing changes to demo/glade/GladeTest.hs

• browse files at revision 1
• compare with another revision
• download diff
• download tarball
• view history from revision 1

Show diffs side-by-side

added

removed

demo/glade/GladeTest.hs

 

1

module Main where

 

2

 

 

3

import Graphics.UI.Gtk

 

4

import Graphics.UI.Gtk.Glade

 

5

 

 

6

main = do

 

7

         initGUI

 

8

         

 

9

         -- load up the glade file

 

10

         dialogXmlM <- xmlNew "simple.glade"

 

11

         let dialogXml = case dialogXmlM of

 

12

               (Just dialogXml) -> dialogXml

 

13

               Nothing -> error "can't find the glade file \"simple.glade\" \

 

14

                                \in the current directory"

 

15

         

 

16

         -- get a handle on a couple widgets from the glade file

 

17

         window <- xmlGetWidget dialogXml castToWindow "window1"

 

18

         button <- xmlGetWidget dialogXml castToButton "button1"

 

19

         

 

20

         -- do something with the widgets, just to prove it works

 

21

         button `onClicked` putStrLn "button pressed!"

 

22

         window `onDestroy` mainQuit

 

23

         

 

24

         -- show everything

 

25

         widgetShowAll window

 

26

         mainGUI

• Older »

Loggerhead is a web-based interface for Breezy
Version: 2.0.1