scsh-conservatory
/
commander-s
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
scheme/nuit-engine.scm
View File

@ -369,7 +369,7 @@
(else (else
(set! command-buffer (input command-buffer ch)) (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) (print-command-buffer (app-window-curses-win command-window)
command-buffer) command-buffer)
(set! command-buffer (move-cursor command-buffer)) (set! command-buffer (move-cursor command-buffer))
@ -433,9 +433,9 @@
(wrefresh (app-window-curses-win command-frame-window))) (wrefresh (app-window-curses-win command-frame-window)))
(define (paint-command-window-contents) (define (paint-command-window-contents)
(set-buffer-num-lines! command-buffer (set-buffer-num-lines! command-buffer
(- (app-window-height command-window) 2)) (- (app-window-height command-window) 2))
(set-buffer-num-cols! command-buffer (set-buffer-num-cols! command-buffer
(- (app-window-width command-window) 3)) (- (app-window-width command-window) 3))
(werase (app-window-curses-win command-window)) (werase (app-window-curses-win command-window))
(set! command-buffer (set! command-buffer