/usr/lib/perl5/Tk/tkGlue.m 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 | #ifndef _TKGLUE_VM
#define _TKGLUE_VM
#include "tkGlue_f.h"
#ifndef NO_VTABLES
#ifndef Call_Tk
# define Call_Tk (*TkglueVptr->V_Call_Tk)
#endif
#ifndef EnterWidgetMethods
# define EnterWidgetMethods (*TkglueVptr->V_EnterWidgetMethods)
#endif
#ifndef FindTkVarName
# define FindTkVarName (*TkglueVptr->V_FindTkVarName)
#endif
#ifndef InterpHv
# define InterpHv (*TkglueVptr->V_InterpHv)
#endif
#ifndef Lang_TkCommand
# define Lang_TkCommand (*TkglueVptr->V_Lang_TkCommand)
#endif
#ifndef Lang_TkSubCommand
# define Lang_TkSubCommand (*TkglueVptr->V_Lang_TkSubCommand)
#endif
#ifndef MakeReference
# define MakeReference (*TkglueVptr->V_MakeReference)
#endif
#ifndef ObjectRef
# define ObjectRef (*TkglueVptr->V_ObjectRef)
#endif
#ifndef SVtoFont
# define SVtoFont (*TkglueVptr->V_SVtoFont)
#endif
#ifndef SVtoHWND
# define SVtoHWND (*TkglueVptr->V_SVtoHWND)
#endif
#ifndef SVtoWindow
# define SVtoWindow (*TkglueVptr->V_SVtoWindow)
#endif
#ifndef TkToMainWindow
# define TkToMainWindow (*TkglueVptr->V_TkToMainWindow)
#endif
#ifndef TkToWidget
# define TkToWidget (*TkglueVptr->V_TkToWidget)
#endif
#ifndef WidgetRef
# define WidgetRef (*TkglueVptr->V_WidgetRef)
#endif
#ifndef WindowCommand
# define WindowCommand (*TkglueVptr->V_WindowCommand)
#endif
#ifndef XSTkCommand
# define XSTkCommand (*TkglueVptr->V_XSTkCommand)
#endif
#ifndef install_vtab
# define install_vtab (*TkglueVptr->V_install_vtab)
#endif
#endif /* NO_VTABLES */
#endif /* _TKGLUE_VM */
|