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

Fix the job list 

part of darcs patch Sun Sep 18 12:25:51 EEST 2005  Eric Knauel <knauel@informatik.uni-tuebingen.de>
This commit is contained in:
eknauel 2005-09-27 08:59:07 +00:00
parent 2973bc8d99
commit 0280658d1c
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/job-viewer.scm
View File

@ -213,9 +213,9 @@
"-"))
(#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?)