diff --git a/src/Affection/Draw.hs b/src/Affection/Draw.hs index 6be8e4a..e2a8931 100644 --- a/src/Affection/Draw.hs +++ b/src/Affection/Draw.hs @@ -46,6 +46,10 @@ drawRect buf node color (Line size) rect@G.GeglRectangle{..} = do drawRect buf node color Fill (G.GeglRectangle rectangleX rectangleY size rectangleHeight) drawRect buf node color Fill (G.GeglRectangle (rectangleX + rectangleWidth - size) rectangleY size rectangleHeight) drawRect buf node color Fill (G.GeglRectangle rectangleX (rectangleY + rectangleHeight - size) rectangleWidth size) + ad@AffectionData{..} <- get + put $ ad + { drawStack = (DrawRequest node rect) : drawStack + } -- | force a blit of a specified area present