Update of /project/cells/cvsroot/Celtk In directory clnet:/tmp/cvs-serv12343 Modified Files: tk-structs.lisp Log Message: Added: defcstruct Tcl_Channel --- /project/cells/cvsroot/Celtk/tk-structs.lisp 2006/05/28 15:34:27 1.3 +++ /project/cells/cvsroot/Celtk/tk-structs.lisp 2006/05/31 05:11:28 1.4 @@ -154,3 +154,16 @@ (apply '+ (loop for kw in kws collecting (foreign-enum-value 'tcl-variable-related-flag kw)))) +(defcstruct Tcl_ChannelType + (typeName :string) + (blockModeProc :pointer) + (closeProc :pointer) + (inputProc :pointer) + (outputProc :pointer) + (seekProc :pointer) + (setOptionProc :pointer) + (getOptionProc :pointer) + (watchChannelProc :pointer) + (channelReadyProc :pointer) + (getFileProc :pointer)) +