[cells-cvs] CVS Celtk

[fgoenninger]

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))
+