I'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>  (setf *debug-tk* nil)<br>  (with-ltk ()<br>    (let ((b (make-instance<br>           'button
<br>           :text "ok"<br>           :command (lambda ()<br>                  (choose-directory)<br>                  (finish-output)))))<br>      (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> ------------------------------