[ltk-user] Calling all socket geniuses....

I just managed to introduce some bug. No idea where to look, thought someone strong on sockets/streams might have an idea.

All my writes to Tk go thru this for debugging purposes. I can enable/disable/when-icize the write to standard output.

(defun tk-send (fmt$ &rest args) "send a string to wish" (let ((text (apply 'format nil fmt$ args))) (format t "~A~%" text) (format (wish-stream *wish*) "~A~%" text) ))

Now my test window does not come up without the trace. The window appears but no widgets, and the window is unresponsive. I have to have the Windows task manager kill it.

Is this an easy "oh, I know what that is..." for anyone?

thx, kenny