Consume tcl/tk 8.4.

1 files changed, 58 insertions, 0 deletions

diff --git a/deskutils/ical/files/patch-aa b/deskutils/ical/files/patch-aa
index 3811adda6b80..38105617557b 100644
--- a/deskutils/ical/files/patch-aa
+++ b/deskutils/ical/files/patch-aa
@@ -1,5 +1,63 @@
 --- cal_tcl.C.orig	Sun Nov 28 17:29:13 1999
 +++ cal_tcl.C	Sun Nov 28 17:30:24 1999
+@@ -214,27 +214,27 @@ static int cal_loopf	(ClientData, Tcl_In
+ static int cal_loopb	(ClientData, Tcl_Interp*, int, char*[]);
+ 
+ static Dispatch_Entry calendar_dispatch[] = {
+-    { "delete",		0, 0, cal_delete	},
+-    { "main",		0, 0, cal_main		},
+-    { "include",	1, 1, cal_include	},
+-    { "exclude",	1, 1, cal_exclude	},
+-    { "forincludes",	2, 2, cal_forincs	},
+-    { "add",		1, 2, cal_add		},
+-    { "remove",		1, 1, cal_remove	},
+-    { "hide",		1, 1, cal_hide		},
+-    { "readonly",	0, 1, cal_ronly		},
+-    { "dirty",		0, 1, cal_dirty		},
+-    { "stale",		0, 1, cal_stale		},
+-    { "save",		0, 1, cal_save		},
+-    { "reread",		0, 1, cal_reread	},
+-    { "query",		5, 7, cal_query		},
+-    { "listing",	5, 7, cal_listing	},
+-    { "loop",		2, 4, cal_loop		},
+-    { "incalendar",	3, 3, cal_incal		},
+-    { "option",		1, 4, cal_option	},
+-    { "delete_option",	1, 3, cal_doption	},
+-    { "loop_forward",	5, 7, cal_loopf		},
+-    { "loop_backward",	5, 7, cal_loopb		},
++    { "delete",		0, 0, (Tcl_CmdProc *)cal_delete		},
++    { "main",		0, 0, (Tcl_CmdProc *)cal_main		},
++    { "include",	1, 1, (Tcl_CmdProc *)cal_include	},
++    { "exclude",	1, 1, (Tcl_CmdProc *)cal_exclude	},
++    { "forincludes",	2, 2, (Tcl_CmdProc *)cal_forincs	},
++    { "add",		1, 2, (Tcl_CmdProc *)cal_add		},
++    { "remove",		1, 1, (Tcl_CmdProc *)cal_remove		},
++    { "hide",		1, 1, (Tcl_CmdProc *)cal_hide		},
++    { "readonly",	0, 1, (Tcl_CmdProc *)cal_ronly		},
++    { "dirty",		0, 1, (Tcl_CmdProc *)cal_dirty		},
++    { "stale",		0, 1, (Tcl_CmdProc *)cal_stale		},
++    { "save",		0, 1, (Tcl_CmdProc *)cal_save		},
++    { "reread",		0, 1, (Tcl_CmdProc *)cal_reread		},
++    { "query",		5, 7, (Tcl_CmdProc *)cal_query		},
++    { "listing",	5, 7, (Tcl_CmdProc *)cal_listing	},
++    { "loop",		2, 4, (Tcl_CmdProc *)cal_loop		},
++    { "incalendar",	3, 3, (Tcl_CmdProc *)cal_incal		},
++    { "option",		1, 4, (Tcl_CmdProc *)cal_option		},
++    { "delete_option",	1, 3, (Tcl_CmdProc *)cal_doption	},
++    { "loop_forward",	5, 7, (Tcl_CmdProc *)cal_loopf		},
++    { "loop_backward",	5, 7, (Tcl_CmdProc *)cal_loopb		},
+     { 0,		0, 0, 0			}
+ };
+ 
+@@ -281,7 +281,7 @@ static int parse_items(Tcl_Interp* tcl, 
+ 
+     if ((argc >= 2) && (strcmp(argv[0], "-items") == 0)) {
+ 	int count;
+-	char** list;
++	CONST84 char** list;
+ 	if (Tcl_SplitList(tcl, argv[1], &count, &list) != TCL_OK) {
+ 	    TCL_Error(tcl, "invalid item list");
+ 	}
 @@ -516,7 +516,7 @@
  	TCL_Error(tcl, "no such calendar");
      }