/usr/lib/perl5/Tk/pTk/tk.t is in perl-tk 1:804.031-1build1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 | #ifdef _TK
#ifndef LangCheckDC
#ifndef RC_INVOKED
VFUNC(void,LangCheckDC,V_LangCheckDC,_ANSI_ARGS_((const char *file, int line)))
#endif /* #ifndef RC_INVOKED */
#endif /* #ifndef LangCheckDC */
#ifndef LangEventCallback
#ifndef RC_INVOKED
VFUNC(int,LangEventCallback,V_LangEventCallback,_ANSI_ARGS_((ClientData, Tcl_Interp *,XEvent *,Tk_Window,KeySym)))
#endif /* #ifndef RC_INVOKED */
#endif /* #ifndef LangEventCallback */
#ifndef LangFindVar
#ifndef RC_INVOKED
VFUNC(Var,LangFindVar,V_LangFindVar,_ANSI_ARGS_((Tcl_Interp * interp, Tk_Window, CONST char *name)))
#endif /* #ifndef RC_INVOKED */
#endif /* #ifndef LangFindVar */
#ifndef LangFontObj
#ifndef RC_INVOKED
VFUNC(Tcl_Obj *,LangFontObj,V_LangFontObj,_ANSI_ARGS_((Tcl_Interp *interp, Tk_Font font, char *name)))
#endif /* #ifndef RC_INVOKED */
#endif /* #ifndef LangFontObj */
#ifndef LangObjectObj
#ifndef RC_INVOKED
VFUNC(Tcl_Obj *,LangObjectObj,V_LangObjectObj,_ANSI_ARGS_((Tcl_Interp *interp, char *)))
#endif /* #ifndef RC_INVOKED */
#endif /* #ifndef LangObjectObj */
#ifndef LangSelectHook
#ifndef NO_EXTERN
VFUNC(void,LangSelectHook,V_LangSelectHook,_ANSI_ARGS_((CONST char *what, Tk_Window tkwin,
Atom selection, Atom target, Atom type)))
#endif /* #ifndef NO_EXTERN */
#endif /* #ifndef LangSelectHook */
#ifndef LangWidgetObj
#ifndef RC_INVOKED
VFUNC(Tcl_Obj *,LangWidgetObj,V_LangWidgetObj,_ANSI_ARGS_((Tcl_Interp *interp, Tk_Window)))
#endif /* #ifndef RC_INVOKED */
#endif /* #ifndef LangWidgetObj */
#ifndef Lang_CreateImage
#ifndef RC_INVOKED
VFUNC(Tcl_Command,Lang_CreateImage,V_Lang_CreateImage,_ANSI_ARGS_((Tcl_Interp *interp,
char *cmdName, Tcl_ObjCmdProc *proc,
ClientData clientData,
Tcl_CmdDeleteProc *deleteProc,
Tk_ImageType *typePtr)))
#endif /* #ifndef RC_INVOKED */
#endif /* #ifndef Lang_CreateImage */
#ifndef Lang_CreateWidget
#ifndef RC_INVOKED
VFUNC(Tcl_Command,Lang_CreateWidget,V_Lang_CreateWidget,_ANSI_ARGS_((Tcl_Interp *interp,
Tk_Window, Tcl_ObjCmdProc *proc,
ClientData clientData,
Tcl_CmdDeleteProc *deleteProc)))
#endif /* #ifndef RC_INVOKED */
#endif /* #ifndef Lang_CreateWidget */
#ifndef Lang_DeleteWidget
#ifndef RC_INVOKED
VFUNC(void,Lang_DeleteWidget,V_Lang_DeleteWidget,_ANSI_ARGS_((Tcl_Interp *interp, Tcl_Command cmd)))
#endif /* #ifndef RC_INVOKED */
#endif /* #ifndef Lang_DeleteWidget */
#ifndef Tk_ChangeScreen
#ifndef RC_INVOKED
VFUNC(void,Tk_ChangeScreen,V_Tk_ChangeScreen,_ANSI_ARGS_((Tcl_Interp *interp,
char *dispName, int screenIndex)))
#endif /* #ifndef RC_INVOKED */
#endif /* #ifndef Tk_ChangeScreen */
#ifndef Tk_CreateOldImageType
#ifndef RC_INVOKED
VFUNC(void,Tk_CreateOldImageType,V_Tk_CreateOldImageType,_ANSI_ARGS_((
Tk_ImageType *typePtr)))
#endif /* #ifndef RC_INVOKED */
#endif /* #ifndef Tk_CreateOldImageType */
#ifndef Tk_EventInfo
#ifndef RC_INVOKED
VFUNC(char *,Tk_EventInfo,V_Tk_EventInfo,_ANSI_ARGS_((int letter, Tk_Window tkwin, XEvent *eventPtr,
KeySym keySym, int *numPtr, int *isNum, int *type,
int num_size, char *numStorage)))
#endif /* #ifndef RC_INVOKED */
#endif /* #ifndef Tk_EventInfo */
#ifndef Tk_EventWindow
#ifndef RC_INVOKED
VFUNC(Tk_Window,Tk_EventWindow,V_Tk_EventWindow,_ANSI_ARGS_((XEvent *eventPtr)))
#endif /* #ifndef RC_INVOKED */
#endif /* #ifndef Tk_EventWindow */
#ifndef Tk_FreeTile
#ifndef RC_INVOKED
VFUNC(void,Tk_FreeTile,V_Tk_FreeTile,_ANSI_ARGS_((Tk_Tile tile)))
#endif /* #ifndef RC_INVOKED */
#endif /* #ifndef Tk_FreeTile */
#ifndef Tk_GetTile
#ifndef RC_INVOKED
VFUNC(Tk_Tile,Tk_GetTile,V_Tk_GetTile,_ANSI_ARGS_((Tcl_Interp *interp, Tk_Window tkwin,
CONST char *imageName)))
#endif /* #ifndef RC_INVOKED */
#endif /* #ifndef Tk_GetTile */
#ifndef Tk_GetXSelection
#ifndef RC_INVOKED
VFUNC(int,Tk_GetXSelection,V_Tk_GetXSelection,_ANSI_ARGS_((Tcl_Interp *interp,
Tk_Window tkwin, Atom selection, Atom target,
Tk_GetXSelProc *proc, ClientData clientData)))
#endif /* #ifndef RC_INVOKED */
#endif /* #ifndef Tk_GetXSelection */
#ifndef Tk_InitImageArgs
#ifndef RC_INVOKED
VFUNC(void,Tk_InitImageArgs,V_Tk_InitImageArgs,_ANSI_ARGS_((Tcl_Interp *interp, int argc, char ***objv)))
#endif /* #ifndef RC_INVOKED */
#endif /* #ifndef Tk_InitImageArgs */
#ifndef Tk_NameOfTile
#ifndef RC_INVOKED
VFUNC(CONST char *,Tk_NameOfTile,V_Tk_NameOfTile,_ANSI_ARGS_((Tk_Tile tile)))
#endif /* #ifndef RC_INVOKED */
#endif /* #ifndef Tk_NameOfTile */
#ifndef Tk_PixmapOfTile
#ifndef RC_INVOKED
VFUNC(Pixmap,Tk_PixmapOfTile,V_Tk_PixmapOfTile,_ANSI_ARGS_((Tk_Tile tile)))
#endif /* #ifndef RC_INVOKED */
#endif /* #ifndef Tk_PixmapOfTile */
#ifndef Tk_SetTileChangedProc
#ifndef RC_INVOKED
VFUNC(void,Tk_SetTileChangedProc,V_Tk_SetTileChangedProc,_ANSI_ARGS_((Tk_Tile tile,
Tk_TileChangedProc * changeProc, ClientData clientData)))
#endif /* #ifndef RC_INVOKED */
#endif /* #ifndef Tk_SetTileChangedProc */
#ifndef Tk_SizeOfTile
#ifndef RC_INVOKED
VFUNC(void,Tk_SizeOfTile,V_Tk_SizeOfTile,_ANSI_ARGS_((Tk_Tile tile, int *widthPtr,
int *heightPtr)))
#endif /* #ifndef RC_INVOKED */
#endif /* #ifndef Tk_SizeOfTile */
#endif /* _TK */
|