From 7488bcdf187a5c210f4f0a20d665c5d72996b647 Mon Sep 17 00:00:00 2001 From: eknauel Date: Tue, 27 Sep 2005 16:33:20 +0000 Subject: [PATCH] deal with empty values part of darcs patch Thu Sep 22 14:02:15 EEST 2005 Martin Gasbichler --- scheme/inspector.scm | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/scheme/inspector.scm b/scheme/inspector.scm index a3c4460..c11dbdd 100644 --- a/scheme/inspector.scm +++ b/scheme/inspector.scm @@ -3,10 +3,14 @@ (define (make-inspector-selection-list num-cols num-lines focus-obj) (let ((menu (prepare-menu focus-obj))) (make-select-list - (map (lambda (e) + (if (null? menu) ; the select-list must not be empty + (list + (make-unmarked-text-element + focus-obj #t (val-to-string focus-obj num-cols))) + (map (lambda (e) (make-unmarked-text-element (cadr e) #t (layout-menu-entry num-cols e))) - menu) + menu)) num-lines))) (define (make-header focus-obj num-cols)