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

signature of MAKE-SELECT-LIST changed, adapt.

This commit is contained in:
eknauel 2005-05-27 08:01:24 +00:00
parent f681d13f49
commit db732404dd
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
scheme/inspector.scm
View File

@ -24,10 +24,10 @@
(define (make-inspector-selection-list num-cols num-lines focus-obj) (define (make-inspector-selection-list num-cols num-lines focus-obj)
(let ((menu (prepare-menu focus-obj))) (let ((menu (prepare-menu focus-obj)))
(make-select-list (make-select-list
(zip (map (lambda (e)
(map cdr menu) ;; drop name (make-unmarked-element
(map (lambda (e) #t) menu) ;; all are selectable (cdr e) #t (layout-menu-entry num-cols e)))
(map (lambda (e) (layout-menu-entry num-cols e)) menu)) menu)
num-lines))) num-lines)))
(define (make-header focus-obj num-cols) (define (make-header focus-obj num-cols)