1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#include "GtkDefs.h"
MODULE = Gtk::Image PACKAGE = Gtk::Image PREFIX = gtk_image_
#ifdef GTK_IMAGE
Gtk::Image_Sink
new(Class, val, mask)
SV * Class
Gtk::Gdk::Image val
Gtk::Gdk::Bitmap_OrNULL mask
CODE:
RETVAL = (GtkImage*)(gtk_image_new(val, mask));
OUTPUT:
RETVAL
void
gtk_image_set(image, val, mask)
Gtk::Image image
Gtk::Gdk::Image_OrNULL val
Gtk::Gdk::Bitmap_OrNULL mask
void
gtk_image_get(image)
Gtk::Image image
PPCODE:
{
GdkImage * val;
GdkBitmap * mask;
gtk_image_get(image, &val, &mask);
EXTEND(sp,2);
PUSHs(sv_2mortal(val ? newSVGdkImage(val) : newSVsv(&PL_sv_undef)));
PUSHs(sv_2mortal(mask ? newSVGdkBitmap(mask) : newSVsv(&PL_sv_undef)));
}
#endif
|
