From 6f943ece7b94f49811e88f546becd1ef8ac46c00 Mon Sep 17 00:00:00 2001 From: nek0 Date: Sat, 29 Jul 2017 21:57:06 +0200 Subject: [PATCH] set screen mode --- src/Affection.hs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/Affection.hs b/src/Affection.hs index 1766e63..42c5207 100644 --- a/src/Affection.hs +++ b/src/Affection.hs @@ -93,6 +93,7 @@ withAffection AffectionConfig{..} = do !stride = cpp * w format <- B.babl_format bablFormat -- get current time + SDL.setWindowMode window initScreenMode execTime <- getTime Monotonic initContainer <- (\x -> AffectionData { quitEvent = False @@ -104,6 +105,7 @@ withAffection AffectionConfig{..} = do , drawDimensions = case canvasSize of Just (cw, ch) -> (cw, ch) Nothing -> (w, h) + , screenMode = initScreenMode , drawStride = stride , drawCPP = cpp , drawStack = []