1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
$NetBSD: patch-ae,v 1.1 2004/04/01 00:52:39 minskim Exp $
--- dateeditor.C.orig 1996-02-09 21:17:35.000000000 -0600
+++ dateeditor.C
@@ -47,7 +47,7 @@ static Calendar_Tcl* find_cal(Tcl_Interp
* item (under the assumption that the month named by <date>
* is being displayed).
*/
-int Cmd_MonthDays(ClientData, Tcl_Interp* tcl, int argc, char* argv[]) {
+int Cmd_MonthDays(ClientData, Tcl_Interp* tcl, int argc, const char* argv[]) {
if (argc != 4) {
TCL_Error(tcl, "illegal number of arguments");
}
@@ -68,7 +68,7 @@ int Cmd_MonthDays(ClientData, Tcl_Interp
}
int finish = start + first.GetMonth().Size(first.GetYear()) - 1;
- char* canvas = argv[2];
+ const char* canvas = argv[2];
if (Tcl_VarEval(tcl, canvas, " itemconfig Day -text {}", NULL) != TCL_OK) {
return TCL_ERROR;
}
@@ -93,7 +93,7 @@ int Cmd_MonthDays(ClientData, Tcl_Interp
* "<hlist>", the string "always" is used instead of actual
* hilite style.
*/
-int Cmd_HiliteLoop(ClientData, Tcl_Interp* tcl, int argc, char* argv[]) {
+int Cmd_HiliteLoop(ClientData, Tcl_Interp* tcl, int argc, const char* argv[]) {
int i;
if (argc != 8) {
@@ -113,7 +113,7 @@ int Cmd_HiliteLoop(ClientData, Tcl_Inter
}
int count;
- char** strlist;
+ const char** strlist;
if (Tcl_SplitList(tcl, argv[2], &count, &strlist) != TCL_OK) {
return TCL_ERROR;
}
@@ -124,9 +124,9 @@ int Cmd_HiliteLoop(ClientData, Tcl_Inter
Date today = Date::Today();
Date start(startDays);
Date finish(finishDays);
- char* dvar = argv[5];
- char* hvar = argv[6];
- char* body = argv[7];
+ const char* dvar = argv[5];
+ const char* hvar = argv[6];
+ const char* body = argv[7];
// Get all items
ItemList items;
|