I dag har jeg sett litt på gtk2hs, et bibliotek for å skrive GTK+ applikasjoner i Haskell.

Burde nesten være selvforklarende hva dette lille programmet gjør :p

1. import Graphics.UI.Gtk
2. import System.Locale (defaultTimeLocale)
3. import Time
5. clockButtonClicked = do
6. let time = getClockTime >>= toCalendarTime
7. t <- fmap (formatCalendarTime defaultTimeLocale "%Y-%m-%d %H:%M:%s") time
8. print $ "Klokken er: " ++ t
10. main = do
11. initGUI
12. window <- windowNew
13. button <- buttonNewWithLabel "Klokken er?"
14. window `containerAdd` button
15. window `windowSetTitle` "Si tiden"
16. window `onDestroy` mainQuit
17. button `onClicked` clockButtonClicked
18. windowResize window 200 20
19. widgetShowAll window
20. mainGUI

gtk2hs demo program