From 60ad7d02c493e25038db6494df8c13fdecdd10e9 Mon Sep 17 00:00:00 2001
From: eknauel <eknauel>
Date: Tue, 7 Jun 2005 20:03:38 +0000
Subject: [PATCH] fix painting a single line

---
 scheme/nuit-packages.scm | 1 +
 scheme/termbuf.scm       | 5 ++---
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/scheme/nuit-packages.scm b/scheme/nuit-packages.scm
index 8901f32..0cfaff4 100644
--- a/scheme/nuit-packages.scm
+++ b/scheme/nuit-packages.scm
@@ -439,6 +439,7 @@
 	rendezvous
 	rendezvous-channels
 	
+	ncurses
 	plugin
 	tty-debug
 	result-buffer-changes
diff --git a/scheme/termbuf.scm b/scheme/termbuf.scm
index 5a2817c..06d5314 100644
--- a/scheme/termbuf.scm
+++ b/scheme/termbuf.scm
@@ -158,10 +158,9 @@
 
 (define (paint-single-line termbuf win)
   (debug-message "paint-single-line " termbuf)
+  (wmove win (terminal-buffer-y termbuf) 0)
   (wclrtoeol win)
-  (mvwaddstr win 
-	     (terminal-buffer-y termbuf) 0 
-	     (line-at-cursor-position termbuf))
+  (waddstr win (line-at-cursor-position termbuf))
   (position-cursor termbuf win))
 
 (define (position-cursor termbuf win)