Maybe. Is force-output happening? Put an explicit one at the end of tk-send and see if that fixes it.
-- Dan Knapp
On Feb 9, 2006, at 2:01 PM, Kenny Tilton wrote:
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 _______________________________________________ ltk-user site list ltk-user@common-lisp.net http://common-lisp.net/mailman/listinfo/ltk-user