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
42
43
44
45
46
47
48
49
50
51
52
|
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#include <gtk/gtk.h>
#include "GtkTypes.h"
#include "GdkTypes.h"
#include "MiscTypes.h"
#include "GtkDefs.h"
#ifndef boolSV
# define boolSV(b) ((b) ? &sv_yes : &sv_no)
#endif
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 mask
CODE:
RETVAL = GTK_IMAGE(gtk_image_new(val, mask));
OUTPUT:
RETVAL
void
gtk_image_set(image, val, mask)
Gtk::Image image
Gtk::Gdk::Image val
Gtk::Gdk::Bitmap 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(&sv_undef)));
PUSHs(sv_2mortal(mask ? newSVGdkBitmap(mask) : newSVsv(&sv_undef)));
}
#endif
|
