diff options
| author | patthoyts <patthoyts@users.sourceforge.net> | 2003-06-23 22:05:10 (GMT) |
|---|---|---|
| committer | patthoyts <patthoyts@users.sourceforge.net> | 2003-06-23 22:05:10 (GMT) |
| commit | b21c49b0be09228b0afc3a412ce6702c0365602d (patch) | |
| tree | 139ad99f67511f8851aaaec620309a6d7a65e6bf /win | |
| parent | edc0b0eed5666acae801e952c5cd3c6bcd5fca8a (diff) | |
| download | tcl-b21c49b0be09228b0afc3a412ce6702c0365602d.zip tcl-b21c49b0be09228b0afc3a412ce6702c0365602d.tar.gz tcl-b21c49b0be09228b0afc3a412ce6702c0365602d.tar.bz2 | |
* doc/dde.n: Committed TIP #135 which changes the
* win/tclWinDde.c: -exact option to -force. Also cleaned
* tests/winDde.test: a bug in the tests.
* library/dde/pkgIndex.tcl: Incremented version to 1.2.5
Diffstat (limited to 'win')
| -rw-r--r-- | win/tclWinDde.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/win/tclWinDde.c b/win/tclWinDde.c index d6d36cf..9729a5f 100644 --- a/win/tclWinDde.c +++ b/win/tclWinDde.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclWinDde.c,v 1.16 2003/06/23 21:27:56 patthoyts Exp $ + * RCS: @(#) $Id: tclWinDde.c,v 1.17 2003/06/23 22:05:11 patthoyts Exp $ */ #include "tclPort.h" @@ -71,7 +71,7 @@ static DWORD ddeInstance; /* The application instance handle given * to us by DdeInitialize. */ static int ddeIsServer = 0; -#define TCL_DDE_VERSION "1.2.4" +#define TCL_DDE_VERSION "1.2.5" #define TCL_DDE_PACKAGE_NAME "dde" #define TCL_DDE_SERVICE_NAME "TclEval" @@ -1147,7 +1147,7 @@ Tcl_DdeObjCmd( (char *) NULL}; static CONST char *ddeOptions[] = {"-async", (char *) NULL}; static CONST char *ddeReqOptions[] = {"-binary", (char *) NULL}; - static CONST char *ddeSrvOptions[] = {"-exact", "-handler", "--", (char *) NULL}; + static CONST char *ddeSrvOptions[] = {"-force", "-handler", "--", (char *) NULL}; int index, argIndex, i; int async = 0, binary = 0, exact = 0; int result = TCL_OK; @@ -1209,7 +1209,7 @@ Tcl_DdeObjCmd( Tcl_ResetResult(interp); Tcl_AppendStringsToObj(Tcl_GetObjResult(interp), "bad option \"", Tcl_GetString(objv[i]), - "\": must be -exact, -handler or --", + "\": must be -force, -handler or --", (char*)NULL); return TCL_ERROR; } @@ -1218,7 +1218,7 @@ Tcl_DdeObjCmd( if ((objc - i) > 1) { Tcl_ResetResult(interp); Tcl_WrongNumArgs(interp, 1, objv, - "servername ?-exact? ?-handler proc? ?--?" + "servername ?-force? ?-handler proc? ?--?" " ?serverName?"); return TCL_ERROR; } |