X-Git-Url: https://git.stderr.nl/gitweb?p=matthijs%2Fprojects%2Ffpprac.git;a=blobdiff_plain;f=FPPrac.hs;fp=FPPrac.hs;h=68f5a535bf965038f4190cffeddb6a18eda18d1b;hp=c8512d74b8f5af309f9f6b8d48a5cc386c5384db;hb=c6b48b290e9bf48d7887286f07b5f2142574b42b;hpb=fbdbd46e0d75f68e9da179fd08e045632c7faeb0

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