From 477528c805d7f3c5c92d55730cab0cefca486dff Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Thu, 28 Sep 2006 20:48:25 +0000 Subject: [PATCH] minor bug on directory selections svn: r4454 --- collects/mred/private/path-dialog.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/mred/private/path-dialog.ss b/collects/mred/private/path-dialog.ss index 06e5d44c8e..724a72ab12 100644 --- a/collects/mred/private/path-dialog.ss +++ b/collects/mred/private/path-dialog.ss @@ -430,7 +430,7 @@ [selections (send path-list get-selections)] [many? (and multi? (equal? "" sel) (<= 1 (length selections)))]) - (cond [(and isdir? (or (not (equal? "" sel)) (root? sel0))) + (cond [(and isdir? (not (equal? "" sel0))) ;; chose a directory -- go there (set-dir path) (send* text* (erase) (select-all)) (set-ok?)] [(and /? isfile?)