How do i get the get-file dialog to only show files with a particular extension?  I&#39;ve tried this:<div><br></div><div><div>(define (foo)</div><div>    (parameterize ([finder:default-extension &quot;mcl&quot;]</div><div>
                   [finder:default-filters &#39;((&quot;MC Level Files&quot; &quot;*.mcl&quot;))])</div><div>      (let ((file (finder:get-file #f &quot;Select an MC level file&quot;)))</div><div>        (printf &quot;~a\n&quot; file))))</div>
<div><br></div><div>But the drop-down listbox next to the filename edit file only shows the default &quot;Any&quot; (*.*) filter and not the specified filter.  I also tried specifying a filter regexp (byte-regexp) as the third parameter to get-file, with no better results.</div>
<div><br></div><div>Thanks much. -- Eric</div></div>