From 03f535f0f2de9971a398ec5ad4ef34418dbf370c Mon Sep 17 00:00:00 2001 From: eknauel Date: Tue, 17 May 2005 15:20:41 +0000 Subject: [PATCH] Now that we have two windows for the command buffer clearing the window is easier --- scheme/nuit-engine.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/scheme/nuit-engine.scm b/scheme/nuit-engine.scm index 3172be1..a792932 100644 --- a/scheme/nuit-engine.scm +++ b/scheme/nuit-engine.scm @@ -369,7 +369,7 @@ (else (set! command-buffer (input command-buffer ch)) - (wclrtoeol (app-window-curses-win command-window)) + (werase (app-window-curses-win command-window)) (print-command-buffer (app-window-curses-win command-window) command-buffer) (set! command-buffer (move-cursor command-buffer)) @@ -433,9 +433,9 @@ (wrefresh (app-window-curses-win command-frame-window))) (define (paint-command-window-contents) - (set-buffer-num-lines! command-buffer + (set-buffer-num-lines! command-buffer (- (app-window-height command-window) 2)) - (set-buffer-num-cols! command-buffer + (set-buffer-num-cols! command-buffer (- (app-window-width command-window) 3)) (werase (app-window-curses-win command-window)) (set! command-buffer