It only drew a fixed circle, not so interesting.
, 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