1 /* 2 Copyright (c) 1995-2004 Nick Ing-Simmons. All rights reserved. 3 This program is free software; you can redistribute it and/or 4 modify it under the same terms as Perl itself. 5 */ 6 #define PERL_NO_GET_CONTEXT 7 #include <EXTERN.h> 8 #include <perl.h> 9 #include <XSUB.h> 10 11 #include "tkGlue.def" 12 13 #include "pTk/tkPort.h" 14 #include "pTk/tkInt.h" 15 #include "tkGlue.h" 16 #include "tkGlue.m" 17 #include "pTk/tkVMacro.h" 18 #include "pTk/tkImgPhoto.h" 19 #include "pTk/tkImgPhoto.m" 20 #include "pTk/imgInt.h" 21 #include "pTk/imgInt.m" 22 23 extern Tk_PhotoImageFormat imgFmtJPEG; 24 25 DECLARE_VTABLES; 26 DECLARE_PHOTO; 27 28 MODULE = Tk::JPEG PACKAGE = Tk::JPEG 29 30 PROTOTYPES: DISABLE 31 32 BOOT: 33 { 34 IMPORT_VTABLES; 35 IMPORT_PHOTO; 36 Tk_CreatePhotoImageFormat(&imgFmtJPEG); 37 } 38