diff options
Diffstat (limited to 'generic/tk.decls')
| -rw-r--r-- | generic/tk.decls | 147 |
1 files changed, 88 insertions, 59 deletions
diff --git a/generic/tk.decls b/generic/tk.decls index 400c415..f08f2ef 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) @@ -1018,6 +1019,54 @@ declare 264 { 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) +} # Define the platform specific public Tk interface. These functions are # only available on the designated platform. @@ -1047,59 +1096,8 @@ declare 5 win { UINT message, WPARAM wParam, LPARAM lParam, LRESULT *result) } -# Mac specific functions - -declare 0 mac { - void Tk_MacSetEmbedHandler( - Tk_MacEmbedRegisterWinProc *registerWinProcPtr, - Tk_MacEmbedGetGrafPortProc *getPortProcPtr, - Tk_MacEmbedMakeContainerExistProc *containerExistProcPtr, - Tk_MacEmbedGetClipProc *getClipProc, - Tk_MacEmbedGetOffsetInParentProc *getOffsetProc) -} - -declare 1 mac { - void Tk_MacTurnOffMenus(void) -} - -declare 2 mac { - void Tk_MacTkOwnsCursor(int tkOwnsIt) -} - -declare 3 mac { - void TkMacInitMenus(Tcl_Interp *interp) -} - -declare 4 mac { - void TkMacInitAppleEvents(Tcl_Interp *interp) -} - -declare 5 mac { - int TkMacConvertEvent(EventRecord *eventPtr) -} - -declare 6 mac { - int TkMacConvertTkEvent(EventRecord *eventPtr, Window window) -} - -declare 7 mac { - void TkGenWMConfigureEvent(Tk_Window tkwin, - int x, int y, int width, int height, int flags) -} - -declare 8 mac { - void TkMacInvalClipRgns(TkWindow *winPtr) -} - -declare 9 mac { - int TkMacHaveAppearance(void) -} - -declare 10 mac { - GWorldPtr TkMacGetDrawablePort(Drawable drawable) -} - -# Mac OS X specific functions +################################ +# Aqua specific functions declare 0 aqua { void Tk_MacOSXSetEmbedHandler( @@ -1140,6 +1138,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 |