I&#39;m trying to run this code on Windows XP, SBCL 1.0.6 and ActiveTCL <a href="http://8.4.14.0">8.4.14.0</a>:<br><br>(defun tester ()<br>&nbsp; (setf *debug-tk* nil)<br>&nbsp; (with-ltk ()<br>&nbsp;&nbsp;&nbsp; (let ((b (make-instance<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp; &#39;button
<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp; :text &quot;ok&quot;<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp; :command (lambda ()<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (choose-directory)<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (finish-output)))))<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (pack b))))<br><br>This code hangs, and does not give me a directory chooser.
<br><br>Anyone have a fix for this ?<br clear="all"><br>-- <br> _________________<br> Kjeld K. B. Massali<br> <a href="mailto:denatus@gmail.com">denatus@gmail.com</a> <br> ------------------------------