Anonymous user
Simple windowed application: Difference between revisions
+Haskell
No edit summary |
(+Haskell) |
||
Line 531:
}
}</lang>
=={{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>
=={{header|HicEst}}==
| |||