signature of MAKE-SELECT-LIST changed, adapt.

scheme/inspector.scm

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