suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

added dynamically linked tools to drscheme

Browse Source 
original commit: 4282aa802eaf4c57a364919bb7390f1d10eb462f
This commit is contained in:
Robby Findler 1996-07-18 09:27:43 +00:00
parent 1cb9abd3ff
commit 3d4c7d5b74
1 changed files with 15 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
collects/mred/finder.ss
View File

@ -1,6 +1,7 @@
(define mred:finder@ (define mred:finder@
(unit/sig mred:finder^ (unit/sig mred:finder^
(import [mred:debug : mred:debug^] (import [mred:debug : mred:debug^]
[mred:preferences : mred:preferences^]
[mzlib:string : mzlib:string^] [mzlib:string : mzlib:string^]
[mzlib:function : mzlib:function^] [mzlib:function : mzlib:function^]
[mzlib:file : mzlib:file^]) [mzlib:file : mzlib:file^])
@ -433,6 +434,17 @@
[else f])) [else f]))
#f))))) #f)))))
; By default, use platform-specific get/put (mred:preferences:set-preference-default 'mred:file-dialogs
(define put-file std-put-file) (if (eq? wx:platform 'unix)
(define get-file std-get-file))) '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]))))))