I hope this does the trick.<div>It's a straightforward mod of some code given to me by Gary a couple of months ago.</div><div>Thanks Gary!<br><br></div><div>Arthur</div><div><br>----- Original Message -----<br>From: Joakim Sandgren <joakim@joakimsandgren.com><br>Date: Saturday, April 4, 2009 9:50 pm<br>Subject: [Openmcl-devel] dialog<br>To: openmcl-devel@clozure.com<br><br><span><p><table><tbody><tr><td style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; "><p><font style="font-style: normal; font-weight: normal; background-color: rgb(245, 248, 240); font-size: 14px; ">> </font>Hi,</p><div>Could someone add a "choose-directory-dialog" in the easy-gui package? There is two good functions "choose-file-dialog" and "choose-new-file-dialog" but nothing to let the user choose a directory.</div><div><font style="font-style: normal; font-weight: normal; background-color: rgb(245, 248, 240); font-size: 14px; ">> </font>Thank You</div><div><font style="font-style: normal; font-weight: normal; background-color: rgb(245, 248, 240); font-size: 14px; ">> </font>Sincerely</div><div><font style="font-style: normal; font-weight: normal; background-color: rgb(245, 248, 240); font-size: 14px; ">> </font>Joakim <br><div> <span class="Apple-style-span" style="border-collapse: separate; color: rgb(0, 0, 0); font-family: Helvetica; font-size: 12px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; orphans: 2; text-align: auto; text-indent: 0px; text-transform: none; white-space: normal; widows: 2; word-spacing: 0px; -webkit-border-horizontal-spacing: 0px; -webkit-border-vertical-spacing: 0px; -webkit-text-decorations-in-effect: none; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0; "><div><font class="Apple-style-span" color="#595959" face="'Trebuchet MS'"><br class="Apple-interchange-newline"><br></font></div><div><font class="Apple-style-span" color="#595959" face="'Trebuchet MS'"><br></font></div><div><font class="Apple-style-span" face="'Trebuchet MS'" color="#595959"><font style="font-style: normal; font-weight: normal; background-color: rgb(245, 248, 240); font-size: 14px; ">> </font>Joakim Sandgren</font></div><div><font class="Apple-style-span" face="'Trebuchet MS'" color="#595959"><font style="font-style: normal; font-weight: normal; background-color: rgb(245, 248, 240); font-size: 14px; ">> </font>joakim sandgren musik</font></div><div><font class="Apple-style-span" face="'Trebuchet MS'" color="#595959"><font style="font-style: normal; font-weight: normal; background-color: rgb(245, 248, 240); font-size: 14px; ">> </font>42, rue de Maubeuge</font></div><div><font class="Apple-style-span" face="'Trebuchet MS'" color="#595959"><font style="font-style: normal; font-weight: normal; background-color: rgb(245, 248, 240); font-size: 14px; ">> </font>75009 Paris</font></div><div><font class="Apple-style-span" face="'Trebuchet MS'" color="#595959"><font style="font-style: normal; font-weight: normal; background-color: rgb(245, 248, 240); font-size: 14px; ">> </font>France</font></div><div><font class="Apple-style-span" face="'Trebuchet MS'" color="#595959"><font style="font-style: normal; font-weight: normal; background-color: rgb(245, 248, 240); font-size: 14px; ">> </font>+33 (0)1 45 26 43 90</font></div><div><font class="Apple-style-span" face="'Trebuchet MS'" color="#595959"><a href="javascript:main.compose('new','t=info@joakimsandgren.com')"><font style="font-style: normal; font-weight: normal; background-color: rgb(245, 248, 240); font-size: 14px; ">> </font>info@joakimsandgren.com</a></font></div><div><font class="Apple-style-span" face="'Trebuchet MS'" color="#595959"><a href="http://www.joakimsandgren.com/" target="1"><font style="font-style: normal; font-weight: normal; background-color: rgb(245, 248, 240); font-size: 14px; ">> </font>http://www.joakimsandgren.com</a></font></div></span> </div><br></div></td></tr></tbody></table> </p></span>> _______________________________________________<br>> Openmcl-devel mailing list<br>> Openmcl-devel@clozure.com<br>> http://clozure.com/mailman/listinfo/openmcl-devel</div>