int (*ir_method) (ClientData clientData, Tcl_Interp *interp,
int argc, char **argv);
void (*ir_delete)(ClientData clientData);
} IrTcl_Class;
extern IrTcl_Class ir_obj_class;
int (*ir_method) (ClientData clientData, Tcl_Interp *interp,
int argc, char **argv);
void (*ir_delete)(ClientData clientData);
} IrTcl_Class;
extern IrTcl_Class ir_obj_class;