diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2001-08-15 15:44:35 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2001-08-15 15:44:35 (GMT) |
| commit | 0494d6ea369901955402d84ce76a13ddc200957f (patch) | |
| tree | e817d32e68064c76449930b08bb891ff654501b8 /generic/tkInt.h | |
| parent | fb862db0788d85c6d070781c2cad608e0a470a96 (diff) | |
| download | tk-0494d6ea369901955402d84ce76a13ddc200957f.zip tk-0494d6ea369901955402d84ce76a13ddc200957f.tar.gz tk-0494d6ea369901955402d84ce76a13ddc200957f.tar.bz2 | |
Register Tk's object types with Tcl (Tcl Bug 450545)
Diffstat (limited to 'generic/tkInt.h')
| -rw-r--r-- | generic/tkInt.h | 17 |
1 files changed, 16 insertions, 1 deletions
diff --git a/generic/tkInt.h b/generic/tkInt.h index 8bf0617..a39fa91 100644 --- a/generic/tkInt.h +++ b/generic/tkInt.h @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: $Id: tkInt.h,v 1.35 2001/07/03 01:03:16 hobbs Exp $ + * RCS: $Id: tkInt.h,v 1.36 2001/08/15 15:44:36 dkf Exp $ */ #ifndef _TKINT @@ -835,6 +835,19 @@ extern TkDisplay *tkDisplayList; #define ALT_MASK (AnyModifier<<2) /* + * Object types not declared in tkObj.c need to be mentioned here so + * they can be properly registered with Tcl: + */ + +extern Tcl_ObjType tkBorderObjType; +extern Tcl_ObjType tkBitmapObjType; +extern Tcl_ObjType tkColorObjType; +extern Tcl_ObjType tkCursorObjType; +extern Tcl_ObjType tkFontObjType; +extern Tcl_ObjType tkOptionObjType; +extern Tcl_ObjType tkStateKeyObjType; + +/* * Miscellaneous variables shared among Tk modules but not exported * to the outside world: */ @@ -1003,6 +1016,8 @@ void TkConsolePrint _ANSI_ARGS_((Tcl_Interp *interp, EXTERN void TkEventInit _ANSI_ARGS_((void)); +EXTERN void TkRegisterObjTypes _ANSI_ARGS_((void)); + EXTERN int TkCreateMenuCmd _ANSI_ARGS_((Tcl_Interp *interp)); EXTERN int TkDeadAppCmd _ANSI_ARGS_((ClientData clientData, Tcl_Interp *interp, int argc, char **argv)); |