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

1 Aug 2007

      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@gmail.com
------------------------------

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

Denatus