[cells-cvs] CVS Celtk

[fgoenninger]

Update of /project/cells/cvsroot/Celtk
In directory clnet:/tmp/cvs-serv12271

Modified Files:
	tk-interp.lisp 
Log Message:
Added: CFFI defcfun for Tcl_GetChannelType

--- /project/cells/cvsroot/Celtk/tk-interp.lisp	2006/05/26 17:50:36	1.12
+++ /project/cells/cvsroot/Celtk/tk-interp.lisp	2006/05/31 05:10:30	1.13
@@ -162,6 +162,10 @@
 (defcfun ("Tcl_GetChannelName" Tcl_GetChannelName) :string
   (channel :pointer))
 
+(defcfun ("Tcl_GetChannelType" Tcl_GetChannelType) :pointer
+  (channel :pointer))
+
+
 (defcfun ("Tcl_GetChannel" Tcl_GetChannel) :pointer
   (interp :pointer)
   (channelName :string)