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

Make "<View Console>" work again 

part of darcs patch Sat Sep 17 19:37:33 EEST 2005  Eric Knauel <knauel@informatik.uni-tuebingen.de>
This commit is contained in:
eknauel 2005-09-27 08:58:06 +00:00
parent 60fa0e133c
commit 7340f76507
1 changed files with 16 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
scheme/job-viewer.scm
View File

@ -213,25 +213,32 @@
"-"))
(#f "run status:"
,(format-job-run-state job))
,@(if (job-with-console? job)
`((,console-viewer "<View Console>" ""))
,(if (job-with-console? job)
`(,console-viewer "<View Console>" "")
'())))
(- (result-buffer-num-lines buffer) 1)))
(define (handle-key-press self key control-x-pressed?)
(cond
((= key fg-key)
(continue-job-in-foreground job))
(continue-job-in-foreground job)
self)
((= key bg-key)
(continue-job-in-background job))
(continue-job-in-background job)
self)
((= key refresh-key)
(set! select-list (make-job-select-list job)))
(set! select-list (make-job-select-list job))
self)
((= key stop-job-key)
(stop-job job))
(stop-job job)
self)
((and (= key 10)
(procedure? (select-list-selected-entry select-list)))
(select-list-selected-entry select-list))
(else
(set! select-list
(select-list-handle-key-press select-list key))))
self)
(select-list-handle-key-press select-list key))
self)))
(set! select-list (make-job-select-list job))