delete traces

Author: TeofilC

GUI/EventsView.hs

@@ -282,7 +282,6 @@ drawEvents EventsView{drawArea, adj}
   Just win   <- widgetGetWindow drawArea
   style <- widgetGetStyle drawArea
   focused <- widgetGetIsFocus drawArea
-  traceM "got is focus"
   let state | focused   = StateSelected
             | otherwise = StateActive
 

GUI/Timeline.hs

@@ -281,7 +281,6 @@ 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

GUI/Timeline/Render.hs

@@ -115,7 +115,6 @@ renderView TimelineState{timelineDrawingArea, timelineVAdj, timelinePrevView}
 
     liftIO $ writeIORef timelinePrevView (Just (params, surface))
 
-    -- TODO: figure out what this did???
     C.rectangle rect
     clip
     setSourceSurface surface 0 (-vadj_value)
@@ -322,7 +321,6 @@ scrollView surface old new hecs = do
 -- and not only the newly exposed area. This is comparatively very cheap.
 updateXScaleArea :: TimelineState -> Timestamp -> IO ()
 updateXScaleArea TimelineState{..} lastTx = do
-  traceM "updateXScaleArea"
   -- TODO: get rid of this Just
   Just win <- widgetGetWindow timelineXScaleArea
   Rectangle _ _ width _ <- widgetGetAllocation timelineDrawingArea
@@ -344,7 +342,6 @@ renderYScaleArea :: ViewParameters -> HECs -> DrawingArea -> Render ()
 renderYScaleArea ViewParameters{maxSpkValue, labelsMode, viewTraces,
                                 histogramHeight, minterval}
                  hecs yScaleArea = do
-  traceM "updateXScaleArea"
   let maxP = maxSparkPool hecs
       maxH = fromIntegral $ maxYHistogram hecs
   Rectangle _ _ xoffset _ <- liftIO $ widgetGetAllocation yScaleArea