From 3d4c7d5b744d657c55586d6ff1dfbd9fb97bf296 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 18 Jul 1996 09:27:43 +0000 Subject: [PATCH] added dynamically linked tools to drscheme original commit: 4282aa802eaf4c57a364919bb7390f1d10eb462f --- collects/mred/finder.ss | 18 +++++++++++++++--- 1 file changed, 15 insertions(+), 3 deletions(-) diff --git a/collects/mred/finder.ss b/collects/mred/finder.ss index d7e726ea..e085d292 100644 --- a/collects/mred/finder.ss +++ b/collects/mred/finder.ss @@ -1,6 +1,7 @@ (define mred:finder@ (unit/sig mred:finder^ (import [mred:debug : mred:debug^] + [mred:preferences : mred:preferences^] [mzlib:string : mzlib:string^] [mzlib:function : mzlib:function^] [mzlib:file : mzlib:file^]) @@ -433,6 +434,17 @@ [else f])) #f))))) - ; By default, use platform-specific get/put - (define put-file std-put-file) - (define get-file std-get-file))) + (mred:preferences:set-preference-default 'mred:file-dialogs + (if (eq? wx:platform 'unix) + 'common + 'std)) + (define put-file + (lambda () + ((case (mred:preferences:get-preference 'mred:file-dialogs) + [(std) std-put-file] + [(common) common-put-file])))) + (define get-file + (lambda () + ((case (mred:preferences:get-preference 'mred:file-dialogs) + [(std) std-get-file] + [(common) common-get-file]))))))