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