Simple windowed application: Difference between revisions

=={{header|Haskell}}==

{{libheader|Gtk}} from [http://hackage.haskell.org/packages/hackage.html HackageDB]

<lang haskell>import Graphics.UI.Gtk

import Data.Array.IO

main :: IO ()

main = do

initGUI

window <- windowNew

window `onDestroy` mainQuit

windowSetTitle window "Simple Windowed App"

set window [ containerBorderWidth := 10 ]

hbox <- hBoxNew True 5

set window [ containerChild := hbox ]

lab <- labelNew (Just "There have been no clicks yet")

button <- buttonNewWithLabel "Click me"

set hbox [ containerChild := lab ]

set hbox [ containerChild := button ]

m <- newArray (1,1) 0 :: IO (IOArray Int Int)

onClicked button $ do

v <- readArray m 1

writeArray m 1 (v+1)

set lab [ labelText := "There have been " ++ show (v+1) ++ " clicks" ]

widgetShowAll window

mainGUI</lang>