soegtk-0.11.1: demo/Demo2.hs

{- Written by Antti-Juhani Kaijanaho.
   You may treat this file as if it were in the public domain.
-}
module Main where

import Graphics.SOE.Gtk

main = runGraphics $ do w <- openWindow "Testing" (200, 200)
                        drawInWindow w $ text (10,180) "Hello"
			drawInWindow w $ withColor Blue $
			  polyline [(20,20), (20,150), (150,150), (150,20), (20,20)]
			let region =      createRectangle (20,20) (100,100)
                              `orRegion` createRectangle (50,50) (150,150)
			      `diffRegion` createRectangle (100,100) (150,150)
			drawInWindow w $ withColor Blue $
			  polyline [(20,20), (20,100), (100,100), (100,20), (20,20)]
			drawInWindow w $ withColor Blue $
			  polyline [(50,50), (50,150), (150,150), (150,50), (50,50)]
			drawInWindow w $ withColor Green $ drawRegion region
                        loopEvents w
			closeWindow w

loopEvents w = loop
    where loop = do e <- getWindowEvent w
                    case e of Closed -> return ()
                              _     -> loop