summaryrefslogtreecommitdiffstats
path: root/generic/tkTest.c
diff options
context:
space:
mode:
Diffstat (limited to 'generic/tkTest.c')
-rw-r--r--generic/tkTest.c18
1 files changed, 9 insertions, 9 deletions
diff --git a/generic/tkTest.c b/generic/tkTest.c
index 98df284..2f16372 100644
--- a/generic/tkTest.c
+++ b/generic/tkTest.c
@@ -13,7 +13,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tkTest.c,v 1.30 2005/12/09 00:48:54 das Exp $
+ * RCS: @(#) $Id: tkTest.c,v 1.31 2007/01/03 05:06:26 nijtmans Exp $
*/
#include "tkInt.h"
@@ -653,7 +653,7 @@ TestobjconfigObjCmd(
Tcl_Obj *extension4ObjPtr;
Tcl_Obj *extension5ObjPtr;
} ExtensionWidgetRecord;
- static Tk_OptionSpec baseSpecs[] = {
+ static const Tk_OptionSpec baseSpecs[] = {
{TK_OPTION_STRING, "-one", "one", "One", "one",
Tk_Offset(ExtensionWidgetRecord, base1ObjPtr), -1},
{TK_OPTION_STRING, "-two", "two", "Two", "two",
@@ -697,7 +697,7 @@ TestobjconfigObjCmd(
static char *stringTable[] = {
"one", "two", "three", "four", NULL
};
- static Tk_OptionSpec typesSpecs[] = {
+ static const Tk_OptionSpec typesSpecs[] = {
{TK_OPTION_BOOLEAN, "-boolean", "boolean", "Boolean", "1",
Tk_Offset(TypesRecord, booleanPtr), -1, 0, 0, 0x1},
{TK_OPTION_INT, "-integer", "integer", "Integer", "7",
@@ -842,7 +842,7 @@ TestobjconfigObjCmd(
case CHAIN2: {
ExtensionWidgetRecord *recordPtr;
- static Tk_OptionSpec extensionSpecs[] = {
+ static const Tk_OptionSpec extensionSpecs[] = {
{TK_OPTION_STRING, "-three", "three", "Three", "three",
Tk_Offset(ExtensionWidgetRecord, extension3ObjPtr), -1},
{TK_OPTION_STRING, "-four", "four", "Four", "four",
@@ -899,7 +899,7 @@ TestobjconfigObjCmd(
Tcl_Obj *intPtr;
} ErrorWidgetRecord;
ErrorWidgetRecord widgetRecord;
- static Tk_OptionSpec errorSpecs[] = {
+ static const Tk_OptionSpec errorSpecs[] = {
{TK_OPTION_INT, "-int", "integer", "Integer", "bogus",
Tk_Offset(ErrorWidgetRecord, intPtr)},
{TK_OPTION_END}
@@ -970,7 +970,7 @@ TestobjconfigObjCmd(
static char *internalStringTable[] = {
"one", "two", "three", "four", NULL
};
- static Tk_OptionSpec internalSpecs[] = {
+ static const Tk_OptionSpec internalSpecs[] = {
{TK_OPTION_BOOLEAN, "-boolean", "boolean", "Boolean", "1",
-1, Tk_Offset(InternalRecord, boolean), 0, 0, 0x1},
{TK_OPTION_INT, "-integer", "integer", "Integer", "148962237",
@@ -1087,7 +1087,7 @@ TestobjconfigObjCmd(
Tcl_Obj *five;
} FiveRecord;
FiveRecord *recordPtr;
- static Tk_OptionSpec smallSpecs[] = {
+ static const Tk_OptionSpec smallSpecs[] = {
{TK_OPTION_INT, "-one", "one", "One", "1",
Tk_Offset(FiveRecord, one), -1},
{TK_OPTION_INT, "-two", "two", "Two", "2",
@@ -1141,7 +1141,7 @@ TestobjconfigObjCmd(
Tcl_Obj *fooObjPtr;
} NotEnoughRecord;
NotEnoughRecord record;
- static Tk_OptionSpec errorSpecs[] = {
+ static const Tk_OptionSpec errorSpecs[] = {
{TK_OPTION_INT, "-foo", "foo", "Foo", "0",
Tk_Offset(NotEnoughRecord, fooObjPtr)},
{TK_OPTION_END}
@@ -1172,7 +1172,7 @@ TestobjconfigObjCmd(
Tcl_Obj *windowPtr;
} SlaveRecord;
SlaveRecord *recordPtr;
- static Tk_OptionSpec slaveSpecs[] = {
+ static const Tk_OptionSpec slaveSpecs[] = {
{TK_OPTION_WINDOW, "-window", "window", "Window", ".bar",
Tk_Offset(SlaveRecord, windowPtr), -1, TK_CONFIG_NULL_OK},
{TK_OPTION_END}