wip

Author: TeofilC

GUI/KeyView.hs

@@ -169,7 +169,7 @@ renderKEvent keyColour = do
 renderToPixbuf :: DrawWindowClass dw => dw -> (Int, Int) -> C.Render ()
                -> IO Pixbuf
 renderToPixbuf similar (w, h) draw = do
-  -- TODO: is this right???
+  -- TODO: is this right??? I think so. It seems to work at least :shrug:
   renderWithDrawWindow similar draw
   pixbuf <- pixbufNewFromWindow similar 0 0 w h
   return pixbuf

GUI/Timeline.hs

@@ -24,6 +24,7 @@ module GUI.Timeline (
     timelineCentreOnCursor,
  ) where
 
+import Debug.Trace
 import GUI.Types
 import GUI.Timeline.Types
 
@@ -280,18 +281,21 @@ timelineViewNew builder actions = do
 
   on timelineDrawingArea draw $ do
      liftIO $ do
+       traceM "timelineDrawingArea"
        maybeEventArray <- readIORef hecsIORef
 
        -- Check to see if an event trace has been loaded
        case maybeEventArray of
          Nothing   -> return ()
          Just hecs -> do
+           traceShowM "just hecs"
            params <- timelineGetViewParameters timelineWin
            -- render either the whole height of the timeline, or the window, whichever
            -- is larger (this just ensure we fill the background if the timeline is
            -- smaller than the window).
            exposeRect <- widgetGetAllocation timelineDrawingArea
            Rectangle _ _ _ h <- widgetGetAllocation timelineDrawingArea
+           traceShowM exposeRect
            let params' = params { height = max (height params) h }
            selection  <- readIORef selectionRef
            bookmarks <- readIORef bookmarkIORef

GUI/Timeline/Render.hs

@@ -53,6 +53,8 @@ import Data.IORef
 import Control.Monad
 import qualified Data.Text as T
 
+import qualified Graphics.UI.Gtk.Cairo as C
+
 -------------------------------------------------------------------------------
 
 -- | This function redraws the currently visible part of the
@@ -113,7 +115,7 @@ renderView TimelineState{timelineDrawingArea, timelineVAdj, timelinePrevView}
     liftIO $ writeIORef timelinePrevView (Just (params, surface))
 
     -- TODO: figure out what this did???
-    -- region exposeRegion
+    C.rectangle rect
     clip
     setSourceSurface surface 0 (-vadj_value)
             -- ^^ this is where we adjust for the vertical scrollbar