summaryrefslogtreecommitdiffstats
path: root/generic/tkSelect.c
diff options
context:
space:
mode:
Diffstat (limited to 'generic/tkSelect.c')
-rw-r--r--generic/tkSelect.c24
1 files changed, 14 insertions, 10 deletions
diff --git a/generic/tkSelect.c b/generic/tkSelect.c
index 71b73d0..ed718a3 100644
--- a/generic/tkSelect.c
+++ b/generic/tkSelect.c
@@ -11,7 +11,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tkSelect.c,v 1.9 2002/01/17 03:35:00 dgp Exp $
+ * RCS: @(#) $Id: tkSelect.c,v 1.10 2002/01/17 05:13:11 dgp Exp $
*/
#include "tkInt.h"
@@ -690,8 +690,9 @@ Tk_SelectionObjCmd(clientData, interp, objc, objv)
char *selName = NULL, *string;
int count, index;
Tcl_Obj **objs;
- static char *optionStrings[] = { "clear", "get", "handle", "own",
- (char *) NULL };
+ static CONST char *optionStrings[] = {
+ "clear", "get", "handle", "own", (char *) NULL
+ };
enum options { SELECTION_CLEAR, SELECTION_GET, SELECTION_HANDLE,
SELECTION_OWN };
@@ -707,8 +708,9 @@ Tk_SelectionObjCmd(clientData, interp, objc, objv)
switch ((enum options) index) {
case SELECTION_CLEAR: {
- static char *clearOptionStrings[] = { "-displayof", "-selection",
- (char *) NULL };
+ static CONST char *clearOptionStrings[] = {
+ "-displayof", "-selection", (char *) NULL
+ };
enum clearOptions { CLEAR_DISPLAYOF, CLEAR_SELECTION };
int clearIndex;
@@ -764,8 +766,9 @@ Tk_SelectionObjCmd(clientData, interp, objc, objv)
char *targetName = NULL;
Tcl_DString selBytes;
int result;
- static char *getOptionStrings[] = { "-displayof", "-selection",
- "-type", (char *) NULL };
+ static CONST char *getOptionStrings[] = {
+ "-displayof", "-selection", "-type", (char *) NULL
+ };
enum getOptions { GET_DISPLAYOF, GET_SELECTION, GET_TYPE };
int getIndex;
@@ -837,8 +840,9 @@ Tk_SelectionObjCmd(clientData, interp, objc, objv)
char *formatName = NULL;
register CommandInfo *cmdInfoPtr;
int cmdLength;
- static char *handleOptionStrings[] = { "-format", "-selection",
- "-type", (char *) NULL };
+ static CONST char *handleOptionStrings[] = {
+ "-format", "-selection", "-type", (char *) NULL
+ };
enum handleOptions { HANDLE_FORMAT, HANDLE_SELECTION,
HANDLE_TYPE };
int handleIndex;
@@ -923,7 +927,7 @@ Tk_SelectionObjCmd(clientData, interp, objc, objv)
register LostCommand *lostPtr;
char *script = NULL;
int cmdLength;
- static char *ownOptionStrings[] = {
+ static CONST char *ownOptionStrings[] = {
"-command", "-displayof", "-selection", (char *) NULL
};
enum ownOptions { OWN_COMMAND, OWN_DISPLAYOF, OWN_SELECTION };