// Machine generated IDispatch wrapper class(es) created by Microsoft Visual C++

// NOTE: Do not modify the contents of this file.  If this class is regenerated by
//  Microsoft Visual C++, your modifications will be overwritten.


#include "stdafx.h"
#include "tcl80.h"

/////////////////////////////////////////////////////////////////////////////
// CTcl80

IMPLEMENT_DYNCREATE(CTcl80, CWnd)

/////////////////////////////////////////////////////////////////////////////
// CTcl80 properties

/////////////////////////////////////////////////////////////////////////////
// CTcl80 operations

long CTcl80::TclEval(LPCTSTR cmd)
{
	long result;
	static BYTE parms[] =
		VTS_BSTR;
	InvokeHelper(0x1, DISPATCH_METHOD, VT_I4, (void*)&result, parms,
		cmd);
	return result;
}

long CTcl80::TclEvalFile(LPCTSTR filePath)
{
	long result;
	static BYTE parms[] =
		VTS_BSTR;
	InvokeHelper(0x2, DISPATCH_METHOD, VT_I4, (void*)&result, parms,
		filePath);
	return result;
}

CString CTcl80::TclGetVar2(LPCTSTR varName, LPCTSTR varName2, long flags)
{
	CString result;
	static BYTE parms[] =
		VTS_BSTR VTS_BSTR VTS_I4;
	InvokeHelper(0x3, DISPATCH_METHOD, VT_BSTR, (void*)&result, parms,
		varName, varName2, flags);
	return result;
}

CString CTcl80::TclGetVar(LPCTSTR varName, long flags)
{
	CString result;
	static BYTE parms[] =
		VTS_BSTR VTS_I4;
	InvokeHelper(0x4, DISPATCH_METHOD, VT_BSTR, (void*)&result, parms,
		varName, flags);
	return result;
}

CString CTcl80::TclSetVar(LPCTSTR varName, LPCTSTR varValue, long flags)
{
	CString result;
	static BYTE parms[] =
		VTS_BSTR VTS_BSTR VTS_I4;
	InvokeHelper(0x5, DISPATCH_METHOD, VT_BSTR, (void*)&result, parms,
		varName, varValue, flags);
	return result;
}

CString CTcl80::TclSetVar2(LPCTSTR varName, LPCTSTR varName2, LPCTSTR varValue, long flags)
{
	CString result;
	static BYTE parms[] =
		VTS_BSTR VTS_BSTR VTS_BSTR VTS_I4;
	InvokeHelper(0x6, DISPATCH_METHOD, VT_BSTR, (void*)&result, parms,
		varName, varName2, varValue, flags);
	return result;
}

long CTcl80::TclGlobalEval(LPCTSTR strScript)
{
	long result;
	static BYTE parms[] =
		VTS_BSTR;
	InvokeHelper(0x7, DISPATCH_METHOD, VT_I4, (void*)&result, parms,
		strScript);
	return result;
}

CString CTcl80::TclGetResult()
{
	CString result;
	InvokeHelper(0x8, DISPATCH_METHOD, VT_BSTR, (void*)&result, NULL);
	return result;
}

void CTcl80::TclResetResult()
{
	InvokeHelper(0x9, DISPATCH_METHOD, VT_EMPTY, NULL, NULL);
}

void CTcl80::TclSetResult(LPCTSTR strItem)
{
	static BYTE parms[] =
		VTS_BSTR;
	InvokeHelper(0xa, DISPATCH_METHOD, VT_EMPTY, NULL, parms,
		 strItem);
}

void CTcl80::TclAppendResult(LPCTSTR strItem)
{
	static BYTE parms[] =
		VTS_BSTR;
	InvokeHelper(0xb, DISPATCH_METHOD, VT_EMPTY, NULL, parms,
		 strItem);
}

void CTcl80::TclAppendElement(LPCTSTR strItem)
{
	static BYTE parms[] =
		VTS_BSTR;
	InvokeHelper(0xc, DISPATCH_METHOD, VT_EMPTY, NULL, parms,
		 strItem);
}

long CTcl80::TclRecordAndEval(LPCTSTR strScript, long intFlags)
{
	long result;
	static BYTE parms[] =
		VTS_BSTR VTS_I4;
	InvokeHelper(0xd, DISPATCH_METHOD, VT_I4, (void*)&result, parms,
		strScript, intFlags);
	return result;
}

long CTcl80::TclCommandComplete(LPCTSTR strCmd)
{
	long result;
	static BYTE parms[] =
		VTS_BSTR;
	InvokeHelper(0xe, DISPATCH_METHOD, VT_I4, (void*)&result, parms,
		strCmd);
	return result;
}

VARIANT CTcl80::TclSplitList(LPCTSTR strList)
{
	VARIANT result;
	static BYTE parms[] =
		VTS_BSTR;
	InvokeHelper(0xf, DISPATCH_METHOD, VT_VARIANT, (void*)&result, parms,
		strList);
	return result;
}

long CTcl80::TclStringMatch(LPCTSTR strString, LPCTSTR strPattern)
{
	long result;
	static BYTE parms[] =
		VTS_BSTR VTS_BSTR;
	InvokeHelper(0x10, DISPATCH_METHOD, VT_I4, (void*)&result, parms,
		strString, strPattern);
	return result;
}

long CTcl80::TclDefined(LPCTSTR strName)
{
	long result;
	static BYTE parms[] =
		VTS_BSTR;
	InvokeHelper(0x11, DISPATCH_METHOD, VT_I4, (void*)&result, parms,
		strName);
	return result;
}

long CTcl80::TclCreateOLECmd(LPCTSTR strName, LPCTSTR strFuncName, LPUNKNOWN objClass)
{
	long result;
	static BYTE parms[] =
		VTS_BSTR VTS_BSTR VTS_UNKNOWN;
	InvokeHelper(0x12, DISPATCH_METHOD, VT_I4, (void*)&result, parms,
		strName, strFuncName, objClass);
	return result;
}

void CTcl80::TclDeleteOLECmd(LPCTSTR strName)
{
	static BYTE parms[] =
		VTS_BSTR;
	InvokeHelper(0x13, DISPATCH_METHOD, VT_EMPTY, NULL, parms,
		 strName);
}

long CTcl80::TclDoOneEvent(long flags)
{
	long result;
	static BYTE parms[] =
		VTS_I4;
	InvokeHelper(0x14, DISPATCH_METHOD, VT_I4, (void*)&result, parms,
		flags);
	return result;
}

long CTcl80::TclTraceVar(LPUNKNOWN objCallback, LPCTSTR strFuncName, LPCTSTR strVarName, long flags)
{
	long result;
	static BYTE parms[] =
		VTS_UNKNOWN VTS_BSTR VTS_BSTR VTS_I4;
	InvokeHelper(0x15, DISPATCH_METHOD, VT_I4, (void*)&result, parms,
		objCallback, strFuncName, strVarName, flags);
	return result;
}

long CTcl80::TclTraceVar2(LPUNKNOWN objCallback, LPCTSTR strFuncName, LPCTSTR strVarName, LPCTSTR strVarName2, long flags)
{
	long result;
	static BYTE parms[] =
		VTS_UNKNOWN VTS_BSTR VTS_BSTR VTS_BSTR VTS_I4;
	InvokeHelper(0x16, DISPATCH_METHOD, VT_I4, (void*)&result, parms,
		objCallback, strFuncName, strVarName, strVarName2, flags);
	return result;
}

long CTcl80::TclUnsetVar(LPCTSTR strVarName, long flags)
{
	long result;
	static BYTE parms[] =
		VTS_BSTR VTS_I4;
	InvokeHelper(0x17, DISPATCH_METHOD, VT_I4, (void*)&result, parms,
		strVarName, flags);
	return result;
}

long CTcl80::TclUnsetVar2(LPCTSTR strVarName, LPCTSTR strVarName2, long flags)
{
	long result;
	static BYTE parms[] =
		VTS_BSTR VTS_BSTR VTS_I4;
	InvokeHelper(0x18, DISPATCH_METHOD, VT_I4, (void*)&result, parms,
		strVarName, strVarName2, flags);
	return result;
}

void CTcl80::TclAddErrorInfo(LPCTSTR msg)
{
	static BYTE parms[] =
		VTS_BSTR;
	InvokeHelper(0x19, DISPATCH_METHOD, VT_EMPTY, NULL, parms,
		 msg);
}

long CTcl80::TclPkgProvide(LPCTSTR strName, LPCTSTR strVersion)
{
	long result;
	static BYTE parms[] =
		VTS_BSTR VTS_BSTR;
	InvokeHelper(0x1a, DISPATCH_METHOD, VT_I4, (void*)&result, parms,
		strName, strVersion);
	return result;
}

CString CTcl80::TclPkgRequire(LPCTSTR strName, LPCTSTR strVersion, short intExact)
{
	CString result;
	static BYTE parms[] =
		VTS_BSTR VTS_BSTR VTS_I2;
	InvokeHelper(0x1b, DISPATCH_METHOD, VT_BSTR, (void*)&result, parms,
		strName, strVersion, intExact);
	return result;
}

long CTcl80::TclUpVar(LPCTSTR strFrameName, LPCTSTR strSourceName, LPCTSTR strTargetName, short intFlags)
{
	long result;
	static BYTE parms[] =
		VTS_BSTR VTS_BSTR VTS_BSTR VTS_I2;
	InvokeHelper(0x1c, DISPATCH_METHOD, VT_I4, (void*)&result, parms,
		strFrameName, strSourceName, strTargetName, intFlags);
	return result;
}

long CTcl80::TclUpVar2(LPCTSTR strFrameName, LPCTSTR strName1, LPCTSTR strName2, LPCTSTR strTargetName, short intFlags)
{
	long result;
	static BYTE parms[] =
		VTS_BSTR VTS_BSTR VTS_BSTR VTS_BSTR VTS_I2;
	InvokeHelper(0x1d, DISPATCH_METHOD, VT_I4, (void*)&result, parms,
		strFrameName, strName1, strName2, strTargetName, intFlags);
	return result;
}

long CTcl80::TclExprLong(LPCTSTR strExpr, long* ptrLong)
{
	long result;
	static BYTE parms[] =
		VTS_BSTR VTS_PI4;
	InvokeHelper(0x1e, DISPATCH_METHOD, VT_I4, (void*)&result, parms,
		strExpr, ptrLong);
	return result;
}

long CTcl80::TclExprDouble(LPCTSTR strExpr, double* ptrDouble)
{
	long result;
	static BYTE parms[] =
		VTS_BSTR VTS_PR8;
	InvokeHelper(0x1f, DISPATCH_METHOD, VT_I4, (void*)&result, parms,
		strExpr, ptrDouble);
	return result;
}

long CTcl80::TclExprBoolean(LPCTSTR strExpr, long* ptr)
{
	long result;
	static BYTE parms[] =
		VTS_BSTR VTS_PI4;
	InvokeHelper(0x20, DISPATCH_METHOD, VT_I4, (void*)&result, parms,
		strExpr, ptr);
	return result;
}

long CTcl80::TclExprString(LPCTSTR strExpr)
{
	long result;
	static BYTE parms[] =
		VTS_BSTR;
	InvokeHelper(0x21, DISPATCH_METHOD, VT_I4, (void*)&result, parms,
		strExpr);
	return result;
}

long CTcl80::TclIsSafe()
{
	long result;
	InvokeHelper(0x22, DISPATCH_METHOD, VT_I4, (void*)&result, NULL);
	return result;
}

long CTcl80::TclMakeSafe()
{
	long result;
	InvokeHelper(0x23, DISPATCH_METHOD, VT_I4, (void*)&result, NULL);
	return result;
}

void CTcl80::TclBackgroundError()
{
	InvokeHelper(0x24, DISPATCH_METHOD, VT_EMPTY, NULL, NULL);
}

long CTcl80::TclGetErrno()
{
	long result;
	InvokeHelper(0x25, DISPATCH_METHOD, VT_I4, (void*)&result, NULL);
	return result;
}

void CTcl80::TclSetErrno(long intErrcode)
{
	static BYTE parms[] =
		VTS_I4;
	InvokeHelper(0x26, DISPATCH_METHOD, VT_EMPTY, NULL, parms,
		 intErrcode);
}

long CTcl80::TclCreateTrace(long level, LPCTSTR procname, LPDISPATCH objref)
{
	long result;
	static BYTE parms[] =
		VTS_I4 VTS_BSTR VTS_DISPATCH;
	InvokeHelper(0x27, DISPATCH_METHOD, VT_I4, (void*)&result, parms,
		level, procname, objref);
	return result;
}

long CTcl80::TclInit()
{
	long result;
	InvokeHelper(0x28, DISPATCH_METHOD, VT_I4, (void*)&result, NULL);
	return result;
}