]> git.imager.perl.org - imager-screenshot.git/blob - Screenshot.xs
initial screenshot attempt
[imager-screenshot.git] / Screenshot.xs
1 #include "EXTERN.h"\r
2 #include "perl.h"\r
3 #include "XSUB.h"\r
4 #include "imext.h"\r
5 #include "imperl.h"\r
6 #include "imss.h"\r
7 \r
8 DEFINE_IMAGER_CALLBACKS;\r
9 \r
10 MODULE = Imager::Screenshot  PACKAGE = Imager::Screenshot PREFIX = imss_\r
11 \r
12 PROTOTYPES: DISABLE\r
13 \r
14 #ifdef SS_WIN32\r
15 \r
16 Imager\r
17 imss_win32(hwnd, include_decor = 1)\r
18         unsigned hwnd\r
19         int include_decor\r
20 \r
21 #endif\r
22 \r
23 #ifdef SS_X11\r
24 \r
25 Imager\r
26 imss_x11(window_id)\r
27         int window_id\r
28 \r
29 #endif\r
30 \r
31 BOOT:\r
32         PERL_INITIALIZE_IMAGER_CALLBACKS;