From: Matthijs Kooijman <matthijs@stdin.nl>
Date: Mon, 24 Aug 2009 17:15:38 +0000 (+0200)
Subject: Remove testing exposeEvent callback.
X-Git-Url: https://git.stderr.nl/gitweb?p=matthijs%2Fprojects%2Ffpprac.git;a=commitdiff_plain;h=c6b48b290e9bf48d7887286f07b5f2142574b42b

Remove testing exposeEvent callback.

It only drew a fixed circle, not so interesting.
---

diff --git a/FPPrac.hs b/FPPrac.hs
index c8512d7..68f5a53 100644
--- a/FPPrac.hs
+++ b/FPPrac.hs
@@ -149,17 +149,6 @@ runGUI s = do
 	            , Gtk.windowTitle := "FP Practicum" ]
 	Gtk.onDestroy window Gtk.mainQuit
 	
-	Gtk.on window Gtk.exposeEvent $ do
-		--(w,h) <- Gtk.eventWindowSize
-		dw <- EventM.eventWindow
-		liftIO $ do
-		Gtk.renderWithDrawable dw $ do
-			--translate (w/2) (h/2)
-			--scale (w/drawSide) (h/drawSide)
-			 Cairo.arc 100 100 50 0 (2*pi) 
-			 Cairo.fill
-		return True
-
 	-- Show the window and start the Gtk mainloop.
 	Gtk.widgetShowAll window
 	Gtk.mainGUI