/usr/lib/perl5/Tk/tkGlue.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 | #ifdef _TKGLUE
#ifndef Call_Tk
VFUNC(int,Call_Tk,V_Call_Tk,_ANSI_ARGS_((Lang_CmdInfo *info,int argc, SV **args)))
#endif /* #ifndef Call_Tk */
#ifndef EnterWidgetMethods
VFUNC(void,EnterWidgetMethods,V_EnterWidgetMethods,_ANSI_ARGS_((char *package, ...)))
#endif /* #ifndef EnterWidgetMethods */
#ifndef FindTkVarName
VFUNC(SV *,FindTkVarName,V_FindTkVarName,_ANSI_ARGS_((CONST char *varName,int flags)))
#endif /* #ifndef FindTkVarName */
#ifndef InterpHv
VFUNC(HV *,InterpHv,V_InterpHv,_ANSI_ARGS_((Tcl_Interp *interp,int fatal)))
#endif /* #ifndef InterpHv */
#ifndef Lang_TkCommand
VFUNC(void,Lang_TkCommand,V_Lang_TkCommand,_ANSI_ARGS_((char *name, Tcl_ObjCmdProc *proc)))
#endif /* #ifndef Lang_TkCommand */
#ifndef Lang_TkSubCommand
VFUNC(void,Lang_TkSubCommand,V_Lang_TkSubCommand,_ANSI_ARGS_((char *name, Tcl_ObjCmdProc *proc)))
#endif /* #ifndef Lang_TkSubCommand */
#ifndef MakeReference
VFUNC(SV *,MakeReference,V_MakeReference,_ANSI_ARGS_((SV * sv)))
#endif /* #ifndef MakeReference */
#ifndef ObjectRef
VFUNC(SV *,ObjectRef,V_ObjectRef,_ANSI_ARGS_((Tcl_Interp *interp, char *path)))
#endif /* #ifndef ObjectRef */
#ifndef SVtoFont
VFUNC(Tk_Font,SVtoFont,V_SVtoFont,_ANSI_ARGS_((SV *win)))
#endif /* #ifndef SVtoFont */
#ifndef SVtoHWND
VFUNC(HWND,SVtoHWND,V_SVtoHWND,_ANSI_ARGS_((SV *win)))
#endif /* #ifndef SVtoHWND */
#ifndef SVtoWindow
VFUNC(Tk_Window,SVtoWindow,V_SVtoWindow,_ANSI_ARGS_((SV *win)))
#endif /* #ifndef SVtoWindow */
#ifndef TkToMainWindow
VFUNC(Tk_Window,TkToMainWindow,V_TkToMainWindow,_ANSI_ARGS_((Tk_Window tkwin)))
#endif /* #ifndef TkToMainWindow */
#ifndef TkToWidget
VFUNC(SV *,TkToWidget,V_TkToWidget,_ANSI_ARGS_((Tk_Window tkwin,Tcl_Interp **pinterp)))
#endif /* #ifndef TkToWidget */
#ifndef WidgetRef
VFUNC(SV *,WidgetRef,V_WidgetRef,_ANSI_ARGS_((Tcl_Interp *interp, char *path)))
#endif /* #ifndef WidgetRef */
#ifndef WindowCommand
VFUNC(Lang_CmdInfo *,WindowCommand,V_WindowCommand,_ANSI_ARGS_((SV *win,HV **hptr, int moan)))
#endif /* #ifndef WindowCommand */
#ifndef XSTkCommand
VFUNC(int,XSTkCommand,V_XSTkCommand,_ANSI_ARGS_((CV *cv, int mwcd, Tcl_ObjCmdProc *proc, int items, SV **args)))
#endif /* #ifndef XSTkCommand */
#ifndef install_vtab
VFUNC(void,install_vtab,V_install_vtab,_ANSI_ARGS_((char *name, void *table, size_t size)))
#endif /* #ifndef install_vtab */
#endif /* _TKGLUE */
|