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

fix indention

This commit is contained in:
eknauel 2005-05-31 07:59:31 +00:00
parent f964abb252
commit 8c9496a1e0
1 changed files with 21 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
scheme/select-list.scm
View File

@ -143,27 +143,27 @@
(paint-selection-list-at select-list 0 0 win result-buffer have-focus?)) (paint-selection-list-at select-list 0 0 win result-buffer have-focus?))
(define (paint-selection-list-at select-list x y win result-buffer have-focus?) (define (paint-selection-list-at select-list x y win result-buffer have-focus?)
(let ((num-lines (select-list-num-lines select-list))) (let ((num-lines (select-list-num-lines select-list)))
(let lp ((elts (let lp ((elts
(select-visible-elements select-list num-lines)) (select-visible-elements select-list num-lines))
(y y) (y y)
(i (select-list-view-index select-list))) (i (select-list-view-index select-list)))
(cond (cond
((null? elts) ((null? elts)
(values)) (values))
((= i (select-list-cursor-index select-list)) ((= i (select-list-cursor-index select-list))
(wattron win (A-REVERSE)) (wattron win (A-REVERSE))
(mvwaddstr win y x (element-text (car elts))) (mvwaddstr win y x (element-text (car elts)))
(wattrset win (A-NORMAL)) (wattrset win (A-NORMAL))
(lp (cdr elts) (+ y 1) (+ i 1))) (lp (cdr elts) (+ y 1) (+ i 1)))
((element-marked? (car elts)) ((element-marked? (car elts))
(wattron win (A-BOLD)) (wattron win (A-BOLD))
(mvwaddstr win y x (element-text (car elts))) (mvwaddstr win y x (element-text (car elts)))
(wattrset win (A-NORMAL)) (wattrset win (A-NORMAL))
(lp (cdr elts) (+ y 1) (+ i 1))) (lp (cdr elts) (+ y 1) (+ i 1)))
(else (else
(mvwaddstr win y x (element-text (car elts))) (mvwaddstr win y x (element-text (car elts)))
(lp (cdr elts) (+ y 1) (+ i 1))))))) (lp (cdr elts) (+ y 1) (+ i 1)))))))
(define (select-list-get-selection select-list) (define (select-list-get-selection select-list)
(map element-value (map element-value