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

Fix repainting if buffer focus switches

This commit is contained in:
eknauel 2005-05-11 06:59:13 +00:00
parent c4ef6ed09d
commit 7dd48a3e47
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
scheme/nuit-engine.scm
View File

@ -113,7 +113,6 @@
;;miscelaneous state ;;miscelaneous state
;;------------------- ;;-------------------
;;1....upper;2....lower
(define *focus-buffer* 'command-buffer) (define *focus-buffer* 'command-buffer)
(define (focus-on-command-buffer?) (define (focus-on-command-buffer?)
@ -307,14 +306,16 @@
((= ch 111) ((= ch 111)
(begin (begin
(if (focus-on-command-buffer?) (if (focus-on-command-buffer?)
(begin (let ((key-message
(make-key-pressed-message active-command
current-result-object
97)))
(focus-result-buffer!) (focus-result-buffer!)
(let ((key-message (set! current-result-object (switch key-message))
(make-key-pressed-message active-command (paint-result-window))
current-result-object (begin
97))) (focus-command-buffer!)
(set! current-result-object (switch key-message)))) (paint-command-window-contents)))
(focus-command-buffer!))
(set! c-x-pressed #f) (set! c-x-pressed #f)
(loop (wait-for-input)))) (loop (wait-for-input))))