Posted to tcl by ro at Sun Feb 20 00:44:46 GMT 2011view raw
- int eproc (Tcl_Event *evPtr, int flags)
- {
- Tcl_Eval(QTERP, "set x [clock micro]");
- Tcl_Eval(QTERP, "boob");
- return 1;
- }
- void CALLBACK cbproc (UINT uTimerID, UINT uMsg,
- DWORD_PTR dwUser, DWORD_PTR dw1, DWORD_PTR dw2)
- {
- Tcl_Event *tee;
- tee = (Tcl_Event *)ckalloc(sizeof(Tcl_Event));
- tee->proc = eproc;
- Tcl_ThreadQueueEvent(VTHREAD, tee, TCL_QUEUE_HEAD);
- Tcl_ThreadAlert(VTHREAD);
- }
- int MmtimersTimeSetEventCmd(ClientData clientdata, Tcl_Interp *interp,
- int objc, Tcl_Obj *const objv[])
- {
- VTHREAD = Tcl_GetCurrentThread();
- timeSetEvent(4, 0, cbproc, 0, TIME_ONESHOT | TIME_CALLBACK_FUNCTION);
- return TCL_OK;
- }