Now that we have two windows for the command buffer clearing the

window is easier
This commit is contained in:
eknauel 2005-05-17 15:20:41 +00:00
parent 3669859bb9
commit 03f535f0f2
1 changed files with 3 additions and 3 deletions

View File

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