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

Fix a simple race condition 

part of darcs patch Sun Sep 18 14:33:46 EEST 2005  Eric Knauel <knauel@informatik.uni-tuebingen.de>
This commit is contained in:
eknauel 2005-09-27 09:00:15 +00:00
parent 93ee18ce47
commit 7c5db88473
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
scheme/nuit-engine.scm
View File

@ -429,8 +429,8 @@
(history-forward!) (history-forward!)
(obtain-lock paint-lock) (obtain-lock paint-lock)
(when (current-history-item) (when (current-history-item)
(paint-active-command-window)
(signal-result-buffer-object-change) (signal-result-buffer-object-change)
(paint-active-command-window)
(paint-result-window (entry-data (current-history-item)))) (paint-result-window (entry-data (current-history-item))))
(refresh-result-window) (refresh-result-window)
(release-lock paint-lock) (release-lock paint-lock)
@ -441,8 +441,8 @@
(history-back!) (history-back!)
(obtain-lock paint-lock) (obtain-lock paint-lock)
(when (current-history-item) (when (current-history-item)
(paint-active-command-window)
(signal-result-buffer-object-change) (signal-result-buffer-object-change)
(paint-active-command-window)
(paint-result-window (entry-data (current-history-item)))) (paint-result-window (entry-data (current-history-item))))
(refresh-result-window) (refresh-result-window)
(release-lock paint-lock) (release-lock paint-lock)
@ -553,13 +553,13 @@
(define (paint-result-frame-window) (define (paint-result-frame-window)
(let ((win (app-window-curses-win (result-frame-window)))) (let ((win (app-window-curses-win (result-frame-window))))
(wclear win) (werase win)
(box win (ascii->char 0) (ascii->char 0)) (box win (ascii->char 0) (ascii->char 0))
(wrefresh win))) (wrefresh win)))
(define (paint-result-window entry) (define (paint-result-window entry)
(let ((win (app-window-curses-win (result-window)))) (let ((win (app-window-curses-win (result-window))))
(wclear win) (werase win)
(send (history-entry-viewer entry) (send (history-entry-viewer entry)
'paint win (result-buffer) (focus-on-result-buffer?)))) 'paint win (result-buffer) (focus-on-result-buffer?))))