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