trying to enable initial draw again

This commit is contained in:
nek0 2016-12-24 01:11:59 +01:00
parent da79d55a0d
commit 158e4ddc80

View file

@ -76,9 +76,9 @@ load _ = do
}
drawInit :: Affection UserData ()
drawInit = return ()
-- UserData{..} <- getAffection
-- present (nodeGraph M.! "over") foreground (GeglRectangle 0 0 800 600) True
drawInit = do
UserData{..} <- getAffection
present (GeglRectangle 0 0 800 600) foreground True
draw :: Affection UserData ()
draw = do