From ba1ae59b17ef16e3e16880063cddbca3e2f2e9c8 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 20 Oct 2002 15:33:40 +0000 Subject: [PATCH] . original commit: 87809f6ed0d087991b8135594f27f843e8a10592 --- collects/mred/mred.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss index aded85ab..a7e8c11d 100644 --- a/collects/mred/mred.ss +++ b/collects/mred/mred.ss @@ -4189,7 +4189,7 @@ (and (positive? selection) selection))))) (define list-box% - (class100 basic-list-control% (label choices parent callback [style '(single)] [selection 0]) + (class100 basic-list-control% (label choices parent callback [style '(single)] [selection #f]) (sequence (let ([cwho '(constructor list-box)]) (check-list-control-args cwho label choices parent callback)