git.iko.soy/vty
on master help sign in
outputPicture: clamp invalid cursor positions when Cursor is used (fixes #140)
f2be6a0Jonathan Daugherty
src/Graphics/Vty/Output/Interface.hs+1−1
compare with master
unifiedsplit
@@ -194,7 +194,7 @@ outputPicture dc pic = liftIO $ do
194 writeMoveCursor dc (clampX x) (clampY y)
194 writeMoveCursor dc (clampX x) (clampY y)
195 Cursor x y ->
195 Cursor x y ->
196 let m = cursorOutputMap ops $ picCursor pic
196 let m = cursorOutputMap ops $ picCursor pic
197− (ox, oy) = charToOutputPos m (x,y)
197+ (ox, oy) = charToOutputPos m (clampX x, clampY y)
198 in writeShowCursor dc `mappend`
198 in writeShowCursor dc `mappend`
199 writeMoveCursor dc (clampX ox) (clampY oy)
199 writeMoveCursor dc (clampX ox) (clampY oy)
200 )
200 )