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

Make the active-command-window work again 

part of darcs patch Sun Sep 18 21:04:12 EEST 2005  Eric Knauel <knauel@informatik.uni-tuebingen.de>
This commit is contained in:
eknauel 2005-09-27 16:30:50 +00:00
parent 83ec071269
commit 4fbe6c5e51
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
scheme/nuit-engine.scm
View File

@ -211,6 +211,7 @@
(append-to-history! new-entry) (append-to-history! new-entry)
(signal-result-buffer-object-change) (signal-result-buffer-object-change)
(obtain-lock paint-lock) (obtain-lock paint-lock)
(paint-active-command-window)
(paint-result-window new-entry) (paint-result-window new-entry)
(refresh-result-window) (refresh-result-window)
(move-cursor (command-buffer) (result-buffer)) (move-cursor (command-buffer) (result-buffer))
@ -243,6 +244,7 @@
(append-to-history! new-entry) (append-to-history! new-entry)
(signal-result-buffer-object-change) (signal-result-buffer-object-change)
(obtain-lock paint-lock) (obtain-lock paint-lock)
(paint-active-command-window)
(paint-result-window new-entry) (paint-result-window new-entry)
(refresh-result-window) (refresh-result-window)
(move-cursor (command-buffer) (result-buffer)) (move-cursor (command-buffer) (result-buffer))
@ -265,6 +267,7 @@
(append-to-history! new-entry) (append-to-history! new-entry)
(signal-result-buffer-object-change) (signal-result-buffer-object-change)
(obtain-lock paint-lock) (obtain-lock paint-lock)
(paint-active-command-window)
(paint-result-window new-entry) (paint-result-window new-entry)
(refresh-result-window) (refresh-result-window)
(move-cursor (command-buffer) (result-buffer)) (move-cursor (command-buffer) (result-buffer))
@ -683,9 +686,9 @@
=> (lambda (entry) => (lambda (entry)
(mvwaddstr win 1 2 (mvwaddstr win 1 2
(maybe-shorten-string (maybe-shorten-string
(if (entry-data entry) (if (history-entry-command (entry-data entry))
"user interaction" (history-entry-command (entry-data entry))
(history-entry-command (entry-data entry))) "user interaction")
width))))) width)))))
(wrefresh win))) (wrefresh win)))