ilyakooo0/vty
1
0
Fork 0
mirror of https://github.com/ilyakooo0/vty.git synced 2024-12-02 08:53:43 +03:00
Code Issues Projects Releases Wiki Activity

write hide cursor before any other op

Browse Source
This commit is contained in:
Corey O'Connor 2014-01-28 08:50:10 +01:00
parent b7d8b6d87e
commit 6f976d305e
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/Graphics/Vty/Output/Interface.hs
View File

@ -139,13 +139,14 @@ output_picture dc pic = liftIO $ do
else zipWith (/=) (Vector.toList previous_ops)
(Vector.toList ops)
-- build the Write corresponding to the output image
out = write_default_attr dc
out = (if manip_cursor then write_hide_cursor dc else mempty)
`mappend` write_default_attr dc
`mappend` write_output_ops dc initial_attr diffs ops
`mappend`
(case pic_cursor pic of
_ | not manip_cursor -> mempty
NoCursor -> write_hide_cursor dc
Cursor x y ->
NoCursor -> mempty
Cursor x y ->
let m = cursor_output_map ops $ pic_cursor pic
(ox, oy) = char_to_output_pos m (x,y)
in write_show_cursor dc `mappend` write_move_cursor dc ox oy