From c6b48b290e9bf48d7887286f07b5f2142574b42b Mon Sep 17 00:00:00 2001 From: Matthijs Kooijman Date: Mon, 24 Aug 2009 19:15:38 +0200 Subject: [PATCH] Remove testing exposeEvent callback. It only drew a fixed circle, not so interesting. --- FPPrac.hs | 11 ----------- 1 file changed, 11 deletions(-) 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 -- 2.30.2