fix painting a single line

This commit is contained in:
eknauel 2005-06-07 20:03:38 +00:00
parent 88c6250483
commit 60ad7d02c4
2 changed files with 3 additions and 3 deletions

View File

@ -439,6 +439,7 @@
rendezvous rendezvous
rendezvous-channels rendezvous-channels
ncurses
plugin plugin
tty-debug tty-debug
result-buffer-changes result-buffer-changes

View File

@ -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)