Remove testing exposeEvent callback.

It only drew a fixed circle, not so interesting.

diff --git a/FPPrac.hs b/FPPrac.hs
index c8512d74b8f5af309f9f6b8d48a5cc386c5384db..68f5a535bf965038f4190cffeddb6a18eda18d1b 100644 (file)
--- 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