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

Fix various small problems with the job viewer.

This commit is contained in:
eknauel 2005-08-21 16:56:31 +00:00
parent 11c8b72704
commit d7598a29f3
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
scheme/job-viewer.scm
View File

@ -12,8 +12,8 @@
(cond
((job-running? job) "running")
((job-ready? job) "ready")
((job-waiting-for-input? job) "waiting for input")
((job-has-new-output? job) "waiting with output")
((job-waiting-for-input? job) "wait/input")
((job-has-new-output? job) "wait/output")
((job-stopped? job) "stopped")
(else "run/output"))))
@ -174,7 +174,7 @@
(append
(list (fill-up-string 15 (cadr args)))
(cddr args))))))
`((,(job-name->string (job-name job))
`((,job
"name:" ,(job-name->string (job-name job)))
(,(if (job-end-time job) (job-status job) #f)
@ -206,8 +206,6 @@
((= key (char->ascii #\g))
(set! select-list (make-job-select-list job))
self)
((= key (char->ascii #\newline))
(select-list-selected-entry select-list))
(else
(set! select-list
(select-list-handle-key-press select-list key))
@ -227,11 +225,13 @@
((key-press) handle-key-press)
((get-selection-as-text)
((get-selection-as-ref)
(make-get-selection-as-ref-method select-list))
((get-selection-as-ref)
(make-get-selection-as-ref-method select-list))
((get-selection-as-text)
(lambda (self focus? focus-table)
((make-get-selection-as-ref-method select-list)
self focus-table)))
(else
(error "job viewer unknown message" message))))))