const Tcl_ObjType *WideIntType;
const Tcl_ObjType *BignumType;
const Tcl_ObjType *ListType;
- const Tcl_ObjType *ProcBodyType;
const Tcl_ObjType *StringType;
} TkappObject;
v->WideIntType = Tcl_GetObjType("wideInt");
v->BignumType = Tcl_GetObjType("bignum");
v->ListType = Tcl_GetObjType("list");
- v->ProcBodyType = Tcl_GetObjType("procbody");
v->StringType = Tcl_GetObjType("string");
/* Delete the 'exit' command, which can screw things up */
return result;
}
- if (value->typePtr == tkapp->ProcBodyType) {
- /* fall through: return tcl object. */
- }
-
if (value->typePtr == tkapp->StringType) {
return unicodeFromTclObj(value);
}