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

Move spawn of result buffer suveillant to INIT-WINODWS!

This commit is contained in:
mainzelm 2005-10-11 15:41:42 +00:00
parent e511c905cd
commit 60284755e2
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
scheme/win.scm
View File

@ -87,6 +87,8 @@
(delwin (app-window-curses-win window))) (delwin (app-window-curses-win window)))
(define (init-windows!) (define (init-windows!)
(spawn-result-buffer-surveillant)
(set! *bar-1* (set! *bar-1*
(make-app-window 1 1 (make-app-window 1 1
(- (COLS) 2) 2)) (- (COLS) 2) 2))
@ -161,6 +163,4 @@
(define (result-buffer-other-object-has-focus-rv) (define (result-buffer-other-object-has-focus-rv)
(let ((answer-channel (make-channel))) (let ((answer-channel (make-channel)))
(send result-buffer-changes-subscribers answer-channel) (send result-buffer-changes-subscribers answer-channel)
(receive-rv answer-channel))) (receive-rv answer-channel)))
(spawn-result-buffer-surveillant)