1
0
mirror of https://git.FreeBSD.org/ports.git synced 2024-10-31 21:57:12 +00:00
freebsd-ports/deskutils/ical/files/patch-aa
Steve Price 850c4b69bd Update to use Tcl/Tk version 8.2.
Submitted by:	Ade Lovett <ade@lovett.com>
1999-11-29 03:47:42 +00:00

30 lines
946 B
Plaintext

--- 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[]){