[cells-cvs] CVS Celtk

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)