Added colors to pen points + various updates.

1 files changed, 5 insertions, 2 deletions

diff --git a/GLWidget.hs b/GLWidget.hs
index 8620c1a..ebd6694 100644
--- a/GLWidget.hs
+++ b/GLWidget.hs
@@ -63,8 +63,11 @@ newGLWidget mk w = do
 withCurrentGL :: GLArea -> IO () -> IO ()
 withCurrentGL glarea action = do
     gLAreaMakeCurrent glarea
-    e <- gLAreaGetError glarea
-    maybe action oopsG e
+    gLAreaGetError glarea >>= maybe action oopsG
+    -- -- The following causes realize and resize to each be triggered
+    -- -- twice before the first render signal.
+    -- gLAreaAttachBuffers glarea
+    -- gLAreaGetError glarea >>= maybe action oopsG
 
 nullableContext :: IO (Maybe GLContext) -> IO GLContext
 nullableContext mk = mk >>= maybe mknull return