/usr/lib/perl5/Tk/pTk/tkImgPhoto.m is in perl-tk 1:804.030-1.
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 | #ifndef _TKIMGPHOTO_VM
#define _TKIMGPHOTO_VM
#include "tkImgPhoto_f.h"
#ifndef NO_VTABLES
#define tkImgFmtPPM (*TkimgphotoVptr->V_tkImgFmtPPM)
#ifndef Tk_CreateOldPhotoImageFormat
# define Tk_CreateOldPhotoImageFormat (*TkimgphotoVptr->V_Tk_CreateOldPhotoImageFormat)
#endif
#ifndef Tk_CreatePhotoImageFormat
# define Tk_CreatePhotoImageFormat (*TkimgphotoVptr->V_Tk_CreatePhotoImageFormat)
#endif
#ifndef Tk_DitherPhoto
# define Tk_DitherPhoto (*TkimgphotoVptr->V_Tk_DitherPhoto)
#endif
#ifndef Tk_FindPhoto
# define Tk_FindPhoto (*TkimgphotoVptr->V_Tk_FindPhoto)
#endif
#ifndef Tk_PhotoBlank
# define Tk_PhotoBlank (*TkimgphotoVptr->V_Tk_PhotoBlank)
#endif
#ifndef Tk_PhotoExpand
# define Tk_PhotoExpand (*TkimgphotoVptr->V_Tk_PhotoExpand)
#endif
#ifndef Tk_PhotoFormatName
# define Tk_PhotoFormatName (*TkimgphotoVptr->V_Tk_PhotoFormatName)
#endif
#ifndef Tk_PhotoGetImage
# define Tk_PhotoGetImage (*TkimgphotoVptr->V_Tk_PhotoGetImage)
#endif
#ifndef Tk_PhotoGetSize
# define Tk_PhotoGetSize (*TkimgphotoVptr->V_Tk_PhotoGetSize)
#endif
#ifndef Tk_PhotoPutBlock
# define Tk_PhotoPutBlock (*TkimgphotoVptr->V_Tk_PhotoPutBlock)
#endif
#ifndef Tk_PhotoPutZoomedBlock
# define Tk_PhotoPutZoomedBlock (*TkimgphotoVptr->V_Tk_PhotoPutZoomedBlock)
#endif
#ifndef Tk_PhotoSetSize
# define Tk_PhotoSetSize (*TkimgphotoVptr->V_Tk_PhotoSetSize)
#endif
#endif /* NO_VTABLES */
#endif /* _TKIMGPHOTO_VM */
|