diff options
author | Steve Price <steve@FreeBSD.org> | 1999-11-29 03:47:42 +0000 |
---|---|---|
committer | Steve Price <steve@FreeBSD.org> | 1999-11-29 03:47:42 +0000 |
commit | 850c4b69bdd0ba7b2c6bbfb230e2047983f912ef (patch) | |
tree | 4700d975fd5f4a23ff9807be64588da999caf666 /deskutils/ical/files/patch-ab | |
parent | Update to Tcl/Tk version 8.2. (diff) |
Update to use Tcl/Tk version 8.2.
Submitted by: Ade Lovett <ade@lovett.com>
Notes
Notes:
svn path=/head/; revision=23486
Diffstat (limited to 'deskutils/ical/files/patch-ab')
-rw-r--r-- | deskutils/ical/files/patch-ab | 35 |
1 files changed, 35 insertions, 0 deletions
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[]) { |