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