From ec8910bc625d5963bb4ed8154a15900795aebd48 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Sun, 25 Jun 2006 20:54:24 +0000 Subject: [PATCH] finder:get-file -> get-file svn: r3472 --- collects/drscheme/private/unit.ss | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/drscheme/private/unit.ss b/collects/drscheme/private/unit.ss index 3fdf5e1346..6c2cecd30e 100644 --- a/collects/drscheme/private/unit.ss +++ b/collects/drscheme/private/unit.ss @@ -3157,9 +3157,9 @@ module browser threading seems wrong. (define drs-name-message% (class name-message% (define/override (on-choose-directory dir) - (let ([file (parameterize ([finder:dialog-parent-parameter - (send this get-top-level-window)]) - (finder:get-file dir))]) + (let ([file (get-file (string-constant select-file) + (send this get-top-level-window) + dir)]) (when file (handler:edit-file file)))) (super-new)))