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

Split the glob patterns on ";", and add them all to the gtk dialog.

Browse Source
This commit is contained in:
Eli Barzilay 2011-06-02 09:33:53 -04:00
parent 54fea48cc5
commit 42fe92cd25
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/mred/private/wx/gtk/filedialog.rkt
View File

@ -91,7 +91,9 @@
(gtk_file_filter_set_name ff (if (equal? glob "*")
name
(format "~a (~a)" name glob)))
(gtk_file_filter_add_pattern ff glob)
(for ([glob (in-list (regexp-split #rx" *; *" glob))]
#:when ((string-length glob) . > . 0))
(gtk_file_filter_add_pattern ff glob))
(gtk_file_chooser_add_filter dlg ff))]))
(define ans (and (eq? 'accept (show-dialog dlg))
(if (eq? type 'multi)