fix painting a single line
This commit is contained in:
parent
88c6250483
commit
60ad7d02c4
|
@ -439,6 +439,7 @@
|
||||||
rendezvous
|
rendezvous
|
||||||
rendezvous-channels
|
rendezvous-channels
|
||||||
|
|
||||||
|
ncurses
|
||||||
plugin
|
plugin
|
||||||
tty-debug
|
tty-debug
|
||||||
result-buffer-changes
|
result-buffer-changes
|
||||||
|
|
|
@ -158,10 +158,9 @@
|
||||||
|
|
||||||
(define (paint-single-line termbuf win)
|
(define (paint-single-line termbuf win)
|
||||||
(debug-message "paint-single-line " termbuf)
|
(debug-message "paint-single-line " termbuf)
|
||||||
|
(wmove win (terminal-buffer-y termbuf) 0)
|
||||||
(wclrtoeol win)
|
(wclrtoeol win)
|
||||||
(mvwaddstr win
|
(waddstr win (line-at-cursor-position termbuf))
|
||||||
(terminal-buffer-y termbuf) 0
|
|
||||||
(line-at-cursor-position termbuf))
|
|
||||||
(position-cursor termbuf win))
|
(position-cursor termbuf win))
|
||||||
|
|
||||||
(define (position-cursor termbuf win)
|
(define (position-cursor termbuf win)
|
||||||
|
|
Loading…
Reference in New Issue