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