From 0fdc0899b3e27dcedebafe7080ce729b3a703ae0 Mon Sep 17 00:00:00 2001 From: Pat Thoyts Date: Mon, 9 Sep 2002 22:38:22 +0000 Subject: [PATCH] Updated comments --- winsend.c | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/winsend.c b/winsend.c index 5c484fe..cd00290 100644 --- a/winsend.c +++ b/winsend.c @@ -3,10 +3,8 @@ /* * TODO: - * Put the ROT cookie into a client data structure. - * Use a C based COM object. * Arrange to register the dispinterface ID? - * Check the tkWinSend.c file and implement a Tk send. + * Check the tkWinSend.c file and implement a Tk send then raise a TIP? */ static const char rcsid[] = @@ -110,6 +108,7 @@ Winsend_Init(Tcl_Interp* interp) Tcl_InitStubs(interp, "8.3", 0); #endif + /* allocate our package structure */ pkg = (WinsendPkg*)Tcl_Alloc(sizeof(WinsendPkg)); if (pkg == NULL) { Tcl_SetResult(interp, "out of memory", TCL_STATIC); @@ -117,7 +116,7 @@ Winsend_Init(Tcl_Interp* interp) } memset(pkg, 0, sizeof(WinsendPkg)); - /* discover our root name */ + /* discover our root name - default to 'tcl'*/ if (Tcl_Eval(interp, "file tail $::argv0") == TCL_OK) name = Tcl_GetObjResult(interp); if (name == NULL) -- 2.23.0