From 078c6dd91e2d9d33d05d70e7fa17b63eb4ee8500 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Mon, 5 Jun 2006 05:08:58 +0000
Subject: [PATCH] auto-enter when choosing a new root on windows

svn: r3229

original commit: 5176f2462df38bfc00a9b59e516dd437c5da89d7
---
 collects/mred/private/path-dialog.ss | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/collects/mred/private/path-dialog.ss b/collects/mred/private/path-dialog.ss
index ae50c781..2d8addaa 100644
--- a/collects/mred/private/path-dialog.ss
+++ b/collects/mred/private/path-dialog.ss
@@ -561,7 +561,9 @@
                         (for-each (lambda (r)
                                     (define l (path->string r))
                                     (make-object menu-item% l m
-                                                 (lambda _ (enter-text l))))
+                                                 (lambda _
+                                                   (enter-text l)
+                                                   (do-enter))))
                                   (filesystem-root-list))))
                     (lock))])
           (if win?