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

More fixes for the redrawing code

This commit is contained in:
eknauel 2005-05-18 18:55:51 +00:00
parent 59b2d3006f
commit ee148a86ab
1 changed files with 14 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
scheme/nuit-engine.scm
View File

@ -376,14 +376,19 @@
(paint-bar-2) (paint-bar-2)
(paint-command-window-contents) (paint-command-window-contents)
(set! command-buffer (move-cursor command-buffer)) (set! command-buffer (move-cursor command-buffer))
(refresh-command-window)
(loop (wait-for-input)))) (loop (wait-for-input))))
(else (else
(set! command-buffer (input command-buffer ch)) (set! command-buffer (input command-buffer ch))
(debug-message "loop after input " command-buffer)
(werase (app-window-curses-win command-window)) (werase (app-window-curses-win command-window))
(print-command-buffer (app-window-curses-win command-window) (set! command-buffer
command-buffer) (print-command-buffer (app-window-curses-win command-window)
command-buffer))
(debug-message "loop after print-command-buffer " command-buffer)
(set! command-buffer (move-cursor command-buffer)) (set! command-buffer (move-cursor command-buffer))
(refresh-command-window)
(loop (wait-for-input)))))))))) (loop (wait-for-input))))))))))
(define (window-init-curses-win! window) (define (window-init-curses-win! window)
@ -455,7 +460,9 @@
(werase (app-window-curses-win command-window)) (werase (app-window-curses-win command-window))
(set! command-buffer (set! command-buffer
(print-command-buffer (app-window-curses-win command-window) (print-command-buffer (app-window-curses-win command-window)
command-buffer)) command-buffer)))
(define (refresh-command-window)
(wrefresh (app-window-curses-win command-window))) (wrefresh (app-window-curses-win command-window)))
(define (paint-result-window) (define (paint-result-window)
@ -474,7 +481,8 @@
(paint-command-frame-window) (paint-command-frame-window)
(paint-command-window-contents) (paint-command-window-contents)
(paint-result-window) (paint-result-window)
(move-cursor command-buffer)) (move-cursor command-buffer)
(refresh-command-window))
(define (wait-for-input) (define (wait-for-input)
(noecho) (noecho)
@ -813,7 +821,8 @@
(buffer-pos-fin-ln command-buffer))) (buffer-pos-fin-ln command-buffer)))
(let ((posx (modulo (buffer-pos-col command-buffer) (let ((posx (modulo (buffer-pos-col command-buffer)
(buffer-num-cols command-buffer)))) (buffer-num-cols command-buffer))))
(set-buffer-pos-x! command-buffer posx))) (set-buffer-pos-x! command-buffer posx))
(debug-message "compute-y-x " command-buffer))
(begin (begin
(if (>= pos-result result-lines) (if (>= pos-result result-lines)
(set! result-buffer-pos-y result-lines) (set! result-buffer-pos-y result-lines)