Ticket #1212: test.hs

import Graphics.UI.Gtk
import Control.Monad.Trans (liftIO)
import Text.Printf

main = do
    initGUI
    window <- windowNew
--  on window deleteEvent (liftIO (printf "Test") >> return True) -- Works?
    on window deleteEvent (liftIO mainQuit >> return False)

    button <- buttonNewWithLabel "Test"
    on button buttonActivated (printf "Test") -- Fails
--  on button buttonActivated (putStrLn "Test") -- Works

    containerAdd window button
    widgetShowAll window
    mainGUI