diff options
Diffstat (limited to 'generic/tk.decls')
| -rw-r--r-- | generic/tk.decls | 100 |
1 files changed, 91 insertions, 9 deletions
diff --git a/generic/tk.decls b/generic/tk.decls index 032320d..2825111 100644 --- a/generic/tk.decls +++ b/generic/tk.decls @@ -6,6 +6,7 @@ # tkStub.c, and tkPlatStub.c files. # # Copyright (c) 1998-2000 Ajuba Solutions. +# Copyright (c) 2007 Daniel A. Steffen <das@users.sourceforge.net> # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. @@ -163,7 +164,7 @@ declare 32 { declare 33 { unsigned long Tk_CreateBinding(Tcl_Interp *interp, Tk_BindingTable bindingTable, ClientData object, - const char *eventStr, const char *script, int append) + const char *eventStr, const char *command, int append) } declare 34 { Tk_BindingTable Tk_CreateBindingTable(Tcl_Interp *interp) @@ -495,7 +496,7 @@ declare 123 { } declare 124 { void Tk_ManageGeometry(Tk_Window tkwin, - Tk_GeomMgr *mgrPtr, ClientData clientData) + const Tk_GeomMgr *mgrPtr, ClientData clientData) } declare 125 { void Tk_MapWindow(Tk_Window tkwin) @@ -580,13 +581,13 @@ declare 147 { void Tk_PhotoBlank(Tk_PhotoHandle handle) } declare 148 { - void Tk_PhotoExpand(Tk_PhotoHandle handle, int width, int height ) + void Tk_PhotoExpand_Panic(Tk_PhotoHandle handle, int width, int height ) } declare 149 { void Tk_PhotoGetSize(Tk_PhotoHandle handle, int *widthPtr, int *heightPtr) } declare 150 { - void Tk_PhotoSetSize(Tk_PhotoHandle handle, int width, int height) + void Tk_PhotoSetSize_Panic(Tk_PhotoHandle handle, int width, int height) } declare 151 { int Tk_PointToChar(Tk_TextLayout layout, int x, int y) @@ -942,12 +943,12 @@ declare 245 { void Tk_SetCaretPos(Tk_Window tkwin, int x, int y, int height) } declare 246 { - void Tk_PhotoPutBlock(Tk_PhotoHandle handle, + void Tk_PhotoPutBlock_Panic(Tk_PhotoHandle handle, Tk_PhotoImageBlock *blockPtr, int x, int y, int width, int height, int compRule) } declare 247 { - void Tk_PhotoPutZoomedBlock(Tk_PhotoHandle handle, + void Tk_PhotoPutZoomedBlock_Panic(Tk_PhotoHandle handle, Tk_PhotoImageBlock *blockPtr, int x, int y, int width, int height, int zoomX, int zoomY, int subsampleX, int subsampleY, int compRule) @@ -1017,6 +1018,55 @@ declare 264 { char *recordPtr, Tk_Window tkwin, Drawable d, int x, int y, int width, int height, int state) } + +# TIP#116 +declare 265 { + int Tk_PhotoExpand(Tcl_Interp *interp, Tk_PhotoHandle handle, + int width, int height) +} +declare 266 { + int Tk_PhotoPutBlock(Tcl_Interp *interp, Tk_PhotoHandle handle, + Tk_PhotoImageBlock *blockPtr, int x, int y, int width, int height, + int compRule) +} +declare 267 { + int Tk_PhotoPutZoomedBlock(Tcl_Interp *interp, Tk_PhotoHandle handle, + Tk_PhotoImageBlock *blockPtr, int x, int y, int width, int height, + int zoomX, int zoomY, int subsampleX, int subsampleY, int compRule) +} +declare 268 { + int Tk_PhotoSetSize(Tcl_Interp *interp, Tk_PhotoHandle handle, + int width, int height) +} +# TIP#245 +declare 269 { + long Tk_GetUserInactiveTime(Display *dpy) +} +declare 270 { + void Tk_ResetUserInactiveTime(Display *dpy) +} + +# TIP #264 +declare 271 { + Tcl_Interp *Tk_Interp(Tk_Window tkwin) +} + +# Now that the Tk 8.2 -> 8.3 transition is long past, use more conventional +# means to continue support for extensions using the USE_OLD_IMAGE to +# continue use of their string-based Tcl_ImageTypes and Tcl_PhotoImageFormats. +# +# Note that this restores the usual rules for stub compatibility. Stub-enabled +# extensions compiled against 8.5 headers and linked to the 8.5 stub library +# will produce a file [load]able into an interp with Tk 8.X, for X >= 5. +# It will *not* be [load]able into interps with Tk 8.4 (or Tk 8.2!). +# Developers who need to produce a file [load]able into legacy interps must +# build against legacy sources. +declare 272 { + void Tk_CreateOldImageType(Tk_ImageType *typePtr) +} +declare 273 { + void Tk_CreateOldPhotoImageFormat(Tk_PhotoImageFormat *formatPtr) +} declare 275 { void TkUnusedStubEntry(void) } @@ -1049,7 +1099,8 @@ declare 5 win { UINT message, WPARAM wParam, LPARAM lParam, LRESULT *result) } -# Mac OS X specific functions +################################ +# Aqua specific functions declare 0 aqua { void Tk_MacOSXSetEmbedHandler( @@ -1079,10 +1130,10 @@ declare 6 aqua { void TkMacOSXInvalClipRgns(Tk_Window tkwin) } declare 7 aqua { - GWorldPtr TkMacOSXGetDrawablePort(Drawable drawable) + void *TkMacOSXGetDrawablePort(Drawable drawable) } declare 8 aqua { - ControlRef TkMacOSXGetRootControl(Drawable drawable) + void *TkMacOSXGetRootControl(Drawable drawable) } declare 9 aqua { void Tk_MacOSXSetupTkNotifier(void) @@ -1090,6 +1141,37 @@ declare 9 aqua { declare 10 aqua { int Tk_MacOSXIsAppInFront(void) } + +############################################################################## + +# Public functions that are not accessible via the stubs table. + +export { + const char *Tk_InitStubs(Tcl_Interp *interp, const char *version, + int exact) +} +export { + const char *Tk_PkgInitStubsCheck(Tcl_Interp *interp, const char *version, + int exact) +} + +# Global variables that need to be exported from the tcl shared library. + +export { + TkStubs *tkStubsPtr (fool checkstubs) +} +export { + TkPlatStubs *tkPlatStubsPtr (fool checkstubs) +} +export { + TkIntStubs *tkIntStubsPtr (fool checkstubs) +} +export { + TkIntPlatStubs *tkIntPlatStubsPtr (fool checkstubs) +} +export { + TkIntXlibStubs *tkIntXlibStubsPtr (fool checkstubs) +} # Local Variables: # mode: tcl |