Switched away from gtk-declarative.

1 files changed, 1 insertions, 19 deletions

diff --git a/LambdaHello.hs b/LambdaHello.hs
index 78d4f0d..5615ca8 100644
--- a/LambdaHello.hs
+++ b/LambdaHello.hs
@@ -22,9 +22,7 @@ import qualified Data.Vector as V
 -- import qualified Backend as RF
 import LambdaCube.GL as RF
 import LambdaCube.GL.Type
-
-import Control.Monad.IO.Class
-import qualified Unsafe.Coerce
+import LambdaCube.Gtk
 
 data State = State
     { stConfig     :: Config
@@ -47,22 +45,6 @@ initState = do
         }
 
 
--- | LambdaCube.GL assumes we are rendering to the default framebuffer #0 but
--- Gtk.GLArea actually uses an unpredictable framebuffer object target.  As a
--- workaround, we read the current framebuffer target and patch up the render
--- commands to use it instead of 0.
-fixupRenderTarget :: MonadIO m => GLRenderer -> m GLRenderer
-fixupRenderTarget r = do
-    fbo0 <- GL.get $ GL.bindFramebuffer GL.DrawFramebuffer
-    let fbo = Unsafe.Coerce.unsafeCoerce fbo0 :: GL.GLuint -- XXX: Is there a better way to get this?
-        setFBO rt | framebufferObject rt == 0  = rt { framebufferObject = fbo }
-                  | otherwise                  = rt
-        updateDC dc = dc { glRenderTarget = rt' } where rt' = setFBO (glRenderTarget dc)
-        update (GLClearRenderTarget rt imgs) = GLClearRenderTarget (setFBO rt) imgs
-        update (GLRenderSlot dc s p)         = GLRenderSlot (updateDC dc) s p
-        update (GLRenderStream dc s p)       = GLRenderStream (updateDC dc) s p
-    return r { glCommands = map update (glCommands r) }
-
 render :: State -> GLArea -> GLContext -> IO Bool
 render st w gl = do
     mr <- tryTakeMVar (stRealized st)