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

[Dan Knapp]

   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 at common-lisp.net
> http://common-lisp.net/mailman/listinfo/ltk-user