gtk2hs: button example

button.hs

import Graphics.UI.Gtk 
import Control.Monad.Trans

main :: IO ()
main = do 
  putStrLn "file open test"

  initGUI

  window <- windowNew 

  button <- buttonNewWithLabel "test"
  vbox <- vBoxNew False 0 

  boxPackStart vbox button PackNatural 0 

  containerAdd window vbox 
  
  button `on` buttonActivated $ do 
    liftIO $ putStrLn "button press"


  window `on` deleteEvent $ tryEvent $ do 
    liftIO $ mainQuit 

  widgetShowAll window 

  mainGUI