diff options
author | dgp <dgp@noemail.net> | 2002-01-18 14:07:40 (GMT) |
---|---|---|
committer | dgp <dgp@noemail.net> | 2002-01-18 14:07:40 (GMT) |
commit | 4448b4acc51aee1e9680961d55d44e7d5f835d63 (patch) | |
tree | 4a33ac545e2bfccb9b51bc46692dc5dc022f3640 /win/tclWinDde.c | |
parent | ba69a4f38fc693d7de918f373125d84da9bf23d8 (diff) | |
download | tcl-4448b4acc51aee1e9680961d55d44e7d5f835d63.zip tcl-4448b4acc51aee1e9680961d55d44e7d5f835d63.tar.gz tcl-4448b4acc51aee1e9680961d55d44e7d5f835d63.tar.bz2 |
* Overlooked callers of Tcl_GetIndexFromObj
FossilOrigin-Name: 305121f7f544a9e68150d99f0b7c7261d747108b
Diffstat (limited to 'win/tclWinDde.c')
-rw-r--r-- | win/tclWinDde.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/win/tclWinDde.c b/win/tclWinDde.c index 04a306f..80e3070 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.7 2001/08/22 23:56:14 hobbs Exp $ + * RCS: @(#) $Id: tclWinDde.c,v 1.8 2002/01/18 14:07:40 dgp Exp $ */ #include "tclPort.h" @@ -834,11 +834,11 @@ Tcl_DdeObjCmd( DDE_EVAL }; - static char *ddeCommands[] = {"servername", "execute", "poke", + static CONST char *ddeCommands[] = {"servername", "execute", "poke", "request", "services", "eval", (char *) NULL}; - static char *ddeOptions[] = {"-async", (char *) NULL}; - static char *ddeReqOptions[] = {"-binary", (char *) NULL}; + static CONST char *ddeOptions[] = {"-async", (char *) NULL}; + static CONST char *ddeReqOptions[] = {"-binary", (char *) NULL}; int index, argIndex; int async = 0, binary = 0; int result = TCL_OK; |