hunk ./hback.hs 27
+import Graphics.UI.Gtk.Gdk.Events
hunk ./hback.hs 26
-import Graphics.UI.Gtk hiding (fill)
+import Graphics.UI.Gtk hiding (fill, remove)
hunk ./hback.hs 360
+  return ()
hunk ./hback.hs 373
-renderBlank w h = renderCross w h Nothing
+renderBlank w h = renderCross w h Nothing >> return ()
hunk ./hback.hs 376
-renderRect (x,y) w h = renderCross w h $ Just (x,y)
+renderRect (x,y) w h = do
+    renderCross w h $ Just (x,y)
+    return ()