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

Repaint the result buffer after command evaluation.

This commit is contained in:
eknauel 2005-05-31 13:55:54 +00:00
parent 9f9ef3f7a1
commit c83c1ff05b
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

@ -225,6 +225,7 @@
(define (handle-return-key) (define (handle-return-key)
(let ((command-line (cadr (reverse (buffer-text command-buffer))))) (let ((command-line (cadr (reverse (buffer-text command-buffer)))))
(debug-message "command-line " command-line)
(cond (cond
((string=? command-line "") ((string=? command-line "")
(values)) (values))
@ -255,7 +256,9 @@
(new-entry (new-entry
(make-history-entry command args viewer))) (make-history-entry command args viewer)))
;; FIXME, use insert here ;; FIXME, use insert here
(append-to-history! new-entry))) (append-to-history! new-entry)
(paint-result-window new-entry)
(refresh-result-window)))
(define (eval-command-in-scheme-mode command-line) (define (eval-command-in-scheme-mode command-line)
(let ((viewer (let ((viewer
@ -267,7 +270,9 @@
(new-entry (new-entry
(make-history-entry command args viewer))) (make-history-entry command args viewer)))
;; #### shouldn't we use some kind of insertion here? ;; #### shouldn't we use some kind of insertion here?
(append-to-history! new-entry)))) (append-to-history! new-entry)
(paint-result-window new-entry)
(refresh-result-window))))
;; #### crufty ;; #### crufty
(define split-command-line string-tokenize) (define split-command-line string-tokenize)
@ -293,8 +298,6 @@
(let loop ((ch (wait-for-input)) (c-x-pressed? #f) (let loop ((ch (wait-for-input)) (c-x-pressed? #f)
(completion-selector #f)) (completion-selector #f))
(debug-message "command-buffer " command-buffer)
(cond (cond
;; Ctrl-x -> wait for next input ;; Ctrl-x -> wait for next input
@ -320,7 +323,7 @@
(loop (wait-for-input) #f maybe-selector))) (loop (wait-for-input) #f maybe-selector)))
;; F7 toggle scheme-mode / command-mode (FIXME: find a better key) ;; F7 toggle scheme-mode / command-mode (FIXME: find a better key)
((= ch key-home) ((= ch key-f7)
(toggle-command/scheme-mode) (toggle-command/scheme-mode)
(loop (wait-for-input) #f #f)) (loop (wait-for-input) #f #f))