1 files changed, 20 insertions, 0 deletions
diff --git a/deskutils/ical/files/patch-object.C b/deskutils/ical/files/patch-object.C
new file mode 100644
index 000000000000..61f532459c2c
--- /dev/null
+++ b/deskutils/ical/files/patch-object.C
@@ -0,0 +1,20 @@
+--- object.C.orig	1994-05-20 05:22:04.000000000 +0200
++++ object.C	2003-04-28 18:14:32.000000000 +0200
+@@ -33,7 +33,7 @@ void Object::init(Tcl_Interp* t, char co
+     interp = t;
+ 
+     /* Create TCL Command */
+-    Tcl_CreateCommand(interp, name, obj_handle, (ClientData) this, NULL);
++    Tcl_CreateCommand(interp, name, (Tcl_CmdProc *)obj_handle, (ClientData) this, NULL);
+ }
+ 
+ Object::~Object() {
+@@ -46,7 +46,7 @@ Object::~Object() {
+ Object* Object::find(Tcl_Interp* tcl, char const* h) {
+     Tcl_CmdInfo i;
+ 
+-    if (Tcl_GetCommandInfo(tcl, (char*)h, &i) && (i.proc == obj_handle))
++    if (Tcl_GetCommandInfo(tcl, (char*)h, &i) && (i.proc == (Tcl_CmdProc *)obj_handle))
+ 	return ((Object*) i.clientData);
+ 
+     return 0;