]> git.imager.perl.org - imager-screenshot.git/blame - Screenshot.xs
0.007 release
[imager-screenshot.git] / Screenshot.xs
CommitLineData
0ddb7051
TC
1#include "EXTERN.h"
2#include "perl.h"
3#include "XSUB.h"
d9a01106 4#include "ppport.h"
0ddb7051
TC
5#include "imext.h"
6#include "imperl.h"
7#include "imss.h"
8
9DEFINE_IMAGER_CALLBACKS;
10
11#define imss__x11_open imss_x11_open
12
13MODULE = Imager::Screenshot PACKAGE = Imager::Screenshot PREFIX = imss
14
15PROTOTYPES: DISABLE
16
17#ifdef SS_WIN32
18
cd684d4f 19Imager::ImgRaw
87cd516f 20imss_win32(hwnd, include_decor = 0, left = 0, top = 0, right = 0, bottom = 0)
0ddb7051
TC
21 unsigned hwnd
22 int include_decor
87cd516f
TC
23 int left
24 int top
25 int right
26 int bottom
0ddb7051
TC
27
28#endif
29
30#ifdef SS_X11
31
cd684d4f 32Imager::ImgRaw
87cd516f 33imss_x11(display, window_id, left = 0, top = 0, right = 0, bottom = 0)
0ddb7051
TC
34 unsigned long display
35 int window_id
87cd516f
TC
36 int left
37 int top
38 int right
39 int bottom
0ddb7051
TC
40
41unsigned long
42imss_x11_open(display_name = NULL)
43 const char *display_name
44
45void
46imss_x11_close(display)
47 unsigned long display
48
49#endif
50
51BOOT:
a9735f1a 52 PERL_INITIALIZE_IMAGER_CALLBACKS;