@@ -162,10 +162,13 @@ intMkVty input out = do
162 writeIORef lastUpdateRef $ Just updateData
162 writeIORef lastUpdateRef $ Just updateData
163 writeIORef lastPicRef $ Just inPic'
163 writeIORef lastPicRef $ Just inPic'
165− let innerRefresh
165+ let innerRefresh = do
166− = writeIORef lastUpdateRef Nothing
166+ writeIORef lastUpdateRef Nothing
167+ bounds <- displayBounds out
168+ dc <- displayContext out bounds
169+ writeIORef (assumedStateRef $ contextDevice dc) initialAssumedState
167− >> readIORef lastPicRef
170+ mPic <- readIORef lastPicRef
168− >>= maybe ( return () ) ( \pic -> innerUpdate pic )
171+ maybe (return ()) innerUpdate mPic
170 let gkey = do k <- atomically $ readTChan $ _eventChannel input
173 let gkey = do k <- atomically $ readTChan $ _eventChannel input
171 case k of
174 case k of