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