Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Tree: a93bc36fac
Fetching contributors…

Cannot retrieve contributors at this time

62 lines (50 sloc) 1.408 kB
/*
* 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.
*/
#ifndef _tkWinSendCom_h_INCLUDE
#define _tkWinSendCom_h_INCLUDE
#include "tkWinInt.h"
#include <ole2.h>
#ifdef _MSC_VER
# pragma comment (lib, "ole32.lib")
# pragma comment (lib, "oleaut32.lib")
# pragma comment (lib, "uuid.lib")
#endif
/*
* 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
*/
MODULE_SCOPE HRESULT TkWinSendCom_CreateInstance(Tcl_Interp *interp,
REFIID riid, void **ppv);
MODULE_SCOPE int TkWinSend_QueueCommand(Tcl_Interp *interp,
Tcl_Obj *cmdPtr);
MODULE_SCOPE void TkWinSend_SetExcepInfo(Tcl_Interp *interp,
EXCEPINFO *pExcepInfo);
#endif /* _tkWinSendCom_h_INCLUDE */
/*
* Local Variables:
* mode: c
* End:
*/
Jump to Line
Something went wrong with that request. Please try again.