* win/makefile.vc: Implementation of TIP #150, "Provide

	* win/tkWinSend.c:    'send' command for Windows"
	* win/tkWinSendCom.h:
	* win/tkWinSendCom.c:

1 files changed, 58 insertions, 0 deletions

diff --git a/win/tkWinSendCom.h b/win/tkWinSendCom.h
new file mode 100644
index 0000000..fd98ca2
--- /dev/null
+++ b/win/tkWinSendCom.h
@@ -0,0 +1,58 @@
+/* 
+ * tkWinSendCom.h --
+ *
+ *	This file provides procedures that implement the Windows "send"
+ *	command, allowing commands to be passed from interpreter
+ *	to interpreter.
+ *
+ * Copyright (C) 2002 Pat Thoyts <patthoyts@users.sourceforge.net>
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * RCS: @(#) $Id: tkWinSendCom.h,v 1.1 2003/09/26 23:59:26 patthoyts Exp $
+ */
+
+#ifndef _tkWinSendCom_h_INCLUDE
+#define _tkWinSendCom_h_INCLUDE
+
+#include "tkPort.h"
+#include "tkInt.h"
+
+#include <ole2.h>
+
+/*
+ * TkWinSendCom CoClass structure 
+ */
+
+typedef struct {
+    IDispatchVtbl         *lpVtbl;
+    ISupportErrorInfoVtbl *lpVtbl2;
+    long                   refcount;
+    Tcl_Interp            *interp;
+} TkWinSendCom;
+
+/*
+ * TkWinSendCom Dispatch IDs
+ */
+
+#define TKWINSENDCOM_DISPID_SEND   1
+#define TKWINSENDCOM_DISPID_ASYNC  2
+
+/*
+ * TkWinSendCom public functions
+ */
+
+HRESULT TkWinSendCom_CreateInstance(Tcl_Interp *interp,
+                                    REFIID riid, void **ppv);
+int TkWinSend_QueueCommand(Tcl_Interp *interp, Tcl_Obj *cmdPtr);
+void SetExcepInfo(Tcl_Interp* interp, EXCEPINFO *pExcepInfo);
+
+#endif /* _tkWinSendCom_h_INCLUDE */
+
+/*
+ * Local Variables:
+ *  mode: c
+ *  indent-tabs-mode: nil
+ * End:
+ */