hatexmpp3-0: GTK/GTK.hs

module GTK.GTK where

import Control.Concurrent
import Graphics.UI.Gtk

initGTK :: IO ()
initGTK = do
	forkIO $ do
		unsafeInitGUIForThreadedRTS
		mainGUI
	return ()