summaryrefslogtreecommitdiffstats
path: root/win
diff options
context:
space:
mode:
authorpatthoyts <patthoyts@users.sourceforge.net>2003-06-23 22:05:10 (GMT)
committerpatthoyts <patthoyts@users.sourceforge.net>2003-06-23 22:05:10 (GMT)
commitb21c49b0be09228b0afc3a412ce6702c0365602d (patch)
tree139ad99f67511f8851aaaec620309a6d7a65e6bf /win
parentedc0b0eed5666acae801e952c5cd3c6bcd5fca8a (diff)
downloadtcl-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.c10
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;
}