]> git.imager.perl.org - imager-screenshot.git/blob - Screenshot.xs
set the license if EU::MM supports it
[imager-screenshot.git] / Screenshot.xs
1 #include "EXTERN.h"
2 #include "perl.h"
3 #include "XSUB.h"
4 #include "imext.h"
5 #include "imperl.h"
6 #include "imss.h"
7
8 DEFINE_IMAGER_CALLBACKS;
9
10 #define imss__x11_open imss_x11_open
11
12 MODULE = Imager::Screenshot  PACKAGE = Imager::Screenshot PREFIX = imss
13
14 PROTOTYPES: DISABLE
15
16 #ifdef SS_WIN32
17
18 Imager
19 imss_win32(hwnd, include_decor = 0)
20         unsigned hwnd
21         int include_decor
22
23 #endif
24
25 #ifdef SS_X11
26
27 Imager
28 imss_x11(display, window_id)
29         unsigned long display
30         int window_id
31
32 unsigned long
33 imss_x11_open(display_name = NULL)
34         const char *display_name
35
36 void
37 imss_x11_close(display)
38         unsigned long display
39
40 #endif
41
42 BOOT:
43         PERL_INITIALIZE_IMAGER_CALLBACKS;