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