diff options
Diffstat (limited to 'generic/tkObj.c')
| -rw-r--r-- | generic/tkObj.c | 34 |
1 files changed, 33 insertions, 1 deletions
diff --git a/generic/tkObj.c b/generic/tkObj.c index b26da1c..1a4372b 100644 --- a/generic/tkObj.c +++ b/generic/tkObj.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkObj.c,v 1.4 2001/03/30 07:11:44 hobbs Exp $ + * RCS: @(#) $Id: tkObj.c,v 1.5 2001/08/15 15:44:36 dkf Exp $ */ #include "tkInt.h" @@ -735,3 +735,35 @@ SetWindowFromAny(interp, objPtr) return TCL_OK; } + +/* + *---------------------------------------------------------------------- + * + * TkRegisterObjTypes -- + * + * Registers Tk's Tcl_ObjType structures with the Tcl run-time. + * + * Results: + * None + * + * Side effects: + * All instances of Tcl_ObjType structues used in Tk are registered + * with Tcl. + * + *---------------------------------------------------------------------- + */ + +void +TkRegisterObjTypes() +{ + Tcl_RegisterObjType(&tkBorderObjType); + Tcl_RegisterObjType(&tkBitmapObjType); + Tcl_RegisterObjType(&tkColorObjType); + Tcl_RegisterObjType(&tkCursorObjType); + Tcl_RegisterObjType(&tkFontObjType); + Tcl_RegisterObjType(&mmObjType); + Tcl_RegisterObjType(&tkOptionObjType); + Tcl_RegisterObjType(&pixelObjType); + Tcl_RegisterObjType(&tkStateKeyObjType); + Tcl_RegisterObjType(&windowObjType); +} |