[ltk-user] Problems with choose-directory on windows.

[Denatus]

I'm trying to run this code on Windows XP, SBCL 1.0.6 and ActiveTCL 8.4.14.0
:

(defun tester ()
  (setf *debug-tk* nil)
  (with-ltk ()
    (let ((b (make-instance
           'button
           :text "ok"
           :command (lambda ()
                  (choose-directory)
                  (finish-output)))))
      (pack b))))

This code hangs, and does not give me a directory chooser.

Anyone have a fix for this ?

-- 
_________________
Kjeld K. B. Massali
denatus at gmail.com
------------------------------
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/ltk-user/attachments/20070801/85f5fcdf/attachment.html>