From 271d45320c1684eab2613e4aaded84c073fc12c4 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Mon, 5 Jun 2006 18:19:28 +0000 Subject: [PATCH] added a standard style for file/dir dialogs svn: r3232 --- collects/mred/private/filedialog.ss | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/collects/mred/private/filedialog.ss b/collects/mred/private/filedialog.ss index 93e176f937..09bbad8eec 100644 --- a/collects/mred/private/filedialog.ss +++ b/collects/mred/private/filedialog.ss @@ -1,6 +1,7 @@ (module filedialog mzscheme (require (lib "class.ss") (lib "etc.ss") + (lib "list.ss") (prefix wx: "kernel.ss") "lock.ss" "wx.ss" @@ -88,8 +89,10 @@ (define name (opt-lambda ([message #f] [parent #f] [directory #f] [filename #f] [extension #f] [style null] [filters default-filters]) - ((mk-file-selector 'name put? multi? #f #f) - message parent directory filename extension style filters)))])) + (let* ([force-unix? (memq 'standard style)] + [style (if force-unix? (remq 'standard style) style)]) + ((mk-file-selector 'name put? multi? #f force-unix?) + message parent directory filename extension style filters))))])) (define-file-selector get-file #f #f) (define-file-selector get-file-list #f #t)