- 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
-