1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
--- object.C.orig 1994-05-20 03:22:04 UTC
+++ object.C
@@ -33,7 +33,7 @@ void Object::init(Tcl_Interp* t, char const* ty, char
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;
|
