diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-07-10 22:05:27 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-07-10 22:05:27 (GMT) |
| commit | 1d0390ab1fbd8c026186ce4b9a747d4b35192bf8 (patch) | |
| tree | 9bd53d4b21cd7e2a26b9f61b23bff6ed9c332ab8 /generic/tkInt.h | |
| parent | 50b13ee2c4229793bc07574f9faf73fee3f8d012 (diff) | |
| download | tk-1d0390ab1fbd8c026186ce4b9a747d4b35192bf8.zip tk-1d0390ab1fbd8c026186ce4b9a747d4b35192bf8.tar.gz tk-1d0390ab1fbd8c026186ce4b9a747d4b35192bf8.tar.bz2 | |
(backport) Add TkLengthOne() function, just as TclLengthOne() in Tcl, for optimization within Tk internal objTypes. Only functional when compiling with Tcl 9.0 headers
Diffstat (limited to 'generic/tkInt.h')
| -rw-r--r-- | generic/tkInt.h | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/generic/tkInt.h b/generic/tkInt.h index dc2347c..5ee4791 100644 --- a/generic/tkInt.h +++ b/generic/tkInt.h @@ -1138,6 +1138,9 @@ typedef struct { #ifndef TCL_OBJTYPE_V0 # define TCL_OBJTYPE_V0 /* just empty */ #endif +#ifndef TCL_OBJTYPE_V1 +# define TCL_OBJTYPE_V1(lengthProc) /* just empty */ +#endif MODULE_SCOPE const TkObjType tkBorderObjType; MODULE_SCOPE const TkObjType tkBitmapObjType; @@ -1330,6 +1333,7 @@ MODULE_SCOPE void TkpDrawFrameEx(Tk_Window tkwin, Drawable drawable, int borderWidth, int relief); MODULE_SCOPE void TkpShowBusyWindow(TkBusy busy); MODULE_SCOPE void TkpHideBusyWindow(TkBusy busy); +MODULE_SCOPE Tcl_Size TkLengthOne(Tcl_Obj *); MODULE_SCOPE void TkpMakeTransparentWindowExist(Tk_Window tkwin, Window parent); MODULE_SCOPE void TkpCreateBusy(Tk_FakeWin *winPtr, Tk_Window tkRef, |