From 850c4b69bdd0ba7b2c6bbfb230e2047983f912ef Mon Sep 17 00:00:00 2001 From: Steve Price Date: Mon, 29 Nov 1999 03:47:42 +0000 Subject: Update to use Tcl/Tk version 8.2. Submitted by: Ade Lovett --- deskutils/ical/files/patch-aa | 29 +++++++++++++++++++++++++++++ deskutils/ical/files/patch-ab | 35 +++++++++++++++++++++++++++++++++++ 2 files changed, 64 insertions(+) create mode 100644 deskutils/ical/files/patch-aa create mode 100644 deskutils/ical/files/patch-ab (limited to 'deskutils/ical/files') diff --git a/deskutils/ical/files/patch-aa b/deskutils/ical/files/patch-aa new file mode 100644 index 000000000000..3811adda6b80 --- /dev/null +++ b/deskutils/ical/files/patch-aa @@ -0,0 +1,29 @@ +--- cal_tcl.C.orig Sun Nov 28 17:29:13 1999 ++++ cal_tcl.C Sun Nov 28 17:30:24 1999 +@@ -516,7 +516,7 @@ + TCL_Error(tcl, "no such calendar"); + } + +- TCL_Return(tcl, file->GetCalendar()->ReadOnly() ? "1" : "0"); ++ TCL_Return(tcl, file->GetCalendar()->ReadOnly() ? (char *)"1" : (char *)"0"); + } + + static int cal_dirty(ClientData c, Tcl_Interp* tcl, int argc, char* argv[]){ +@@ -527,7 +527,7 @@ + TCL_Error(tcl, "no such calendar"); + } + +- TCL_Return(tcl, (file->IsModified() ? "1" : "0")); ++ TCL_Return(tcl, (file->IsModified() ? (char *)"1" : (char *)"0")); + } + + static int cal_stale(ClientData c, Tcl_Interp* tcl, int argc, char* argv[]){ +@@ -538,7 +538,7 @@ + TCL_Error(tcl, "no such calendar"); + } + +- TCL_Return(tcl, (file->FileHasChanged() ? "1" : "0")); ++ TCL_Return(tcl, (file->FileHasChanged() ? (char *)"1" : (char *)"0")); + } + + static int cal_save(ClientData c, Tcl_Interp* tcl, int argc, char* argv[]){ diff --git a/deskutils/ical/files/patch-ab b/deskutils/ical/files/patch-ab new file mode 100644 index 000000000000..ae2264c1c776 --- /dev/null +++ b/deskutils/ical/files/patch-ab @@ -0,0 +1,35 @@ +--- item_tcl.C.orig Sun Nov 28 17:31:26 1999 ++++ item_tcl.C Sun Nov 28 17:32:25 1999 +@@ -329,7 +329,7 @@ + + static int item_owned(ClientData c, Tcl_Interp* tcl, int argc, char* argv[]) { + Item_Tcl* item = (Item_Tcl*) c; +- TCL_Return(tcl, (item->value()->IsMine() ? "1" : "0")); ++ TCL_Return(tcl, (item->value()->IsMine() ? (char *)"1" : (char *)"0")); + } + + static int item_own(ClientData c, Tcl_Interp* tcl, int argc, char* argv[]) { +@@ -492,12 +492,12 @@ + + static int item_empty(ClientData c, Tcl_Interp* tcl, int argc, char* argv[]) { + Item_Tcl* item = (Item_Tcl*) c; +- TCL_Return(tcl, (item->value()->empty()?"1":"0")); ++ TCL_Return(tcl, (item->value()->empty() ? (char *)"1" : (char *)"0")); + } + + static int item_repeat(ClientData c, Tcl_Interp* tcl, int argc, char* argv[]) { + Item_Tcl* item = (Item_Tcl*) c; +- TCL_Return(tcl,(item->value()->repeats()?"1":"0")); ++ TCL_Return(tcl,(item->value()->repeats() ? (char *)"1" : (char *)"0")); + } + + static int item_first(ClientData c, Tcl_Interp* tcl, int argc, char* argv[]) { +@@ -576,7 +576,7 @@ + TCL_Error(tcl, "invalid date"); + } + Date date(dateDays); +- TCL_Return(tcl, (item->value()->contains(date)?"1":"0")); ++ TCL_Return(tcl, (item->value()->contains(date) ? (char *)"1" : (char *)"0")); + } + + static int item_next(ClientData c, Tcl_Interp* tcl, int argc, char* argv[]) { -- cgit v1.2.3