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

small fixes for redrawing

This commit is contained in:
eknauel 2005-05-17 13:17:51 +00:00
parent f649bb93cc
commit b161acf8cf
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
scheme/nuit-engine.scm
View File

@ -296,7 +296,7 @@
(begin (begin
(focus-command-buffer!) (focus-command-buffer!)
(paint-command-window-contents) (paint-command-window-contents)
(move-cursor command-buffer))) (set! command-buffer (move-cursor command-buffer))))
(set! c-x-pressed #f) (set! c-x-pressed #f)
(loop (wait-for-input))) (loop (wait-for-input)))
@ -363,13 +363,15 @@
(paint-result-window) (paint-result-window)
(paint-bar-2) (paint-bar-2)
(paint-command-window-contents) (paint-command-window-contents)
(move-cursor command-buffer) (set! command-buffer (move-cursor command-buffer))
(loop (wait-for-input)))) (loop (wait-for-input))))
(else (else
(set! command-buffer (input command-buffer ch)) (set! command-buffer (input command-buffer ch))
(paint-command-window-contents) (wclrtoeol (app-window-curses-win command-window))
(move-cursor command-buffer) (print-command-buffer (app-window-curses-win command-window)
command-buffer)
(set! command-buffer (move-cursor command-buffer))
(loop (wait-for-input)))))))))) (loop (wait-for-input))))))))))
(define (window-init-curses-win! window) (define (window-init-curses-win! window)
@ -793,7 +795,8 @@
(compute-y-x) (compute-y-x)
(wmove (app-window-curses-win result-window) (wmove (app-window-curses-win result-window)
result-buffer-pos-y result-buffer-pos-x) result-buffer-pos-y result-buffer-pos-x)
(wrefresh (app-window-curses-win result-window))))) (wrefresh (app-window-curses-win result-window))
buffer)))
;;compue pos-x and pos-y ;;compue pos-x and pos-y
(define compute-y-x (define compute-y-x