auto-enter when choosing a new root on windows

svn: r3229 original commit: 5176f2462df38bfc00a9b59e516dd437c5da89d7
2006-06-05 05:08:58 +00:00 · 2006-06-05 05:08:58 +00:00 · 078c6dd91e
commit 078c6dd91e
parent 02b90d6c1e
1 changed files with 3 additions and 1 deletions
--- 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?