Gtk-Perl
view release on metacpan or search on metacpan
Gnome/xs/GnomePixmap.xs view on Meta::CPAN
gnome_pixmap_load_file_at_size(pixmap, filename, width, height);
void
load_xpm_d(pixmap, data, ...)
Gnome::Pixmap pixmap
CODE:
{
char ** lines = (char**)malloc(sizeof(char*)*(items-1));
int i;
for(i=1;i<items;i++)
lines[i-1] = SvPV(ST(i),PL_na);
gnome_pixmap_load_xpm_d(pixmap, lines);
free(lines);
}
void
load_xpm_d_at_size(pixmap, width, height, data, ...)
Gnome::Pixmap pixmap
int width
int height
CODE:
{
char ** lines = (char**)malloc(sizeof(char*)*(items-2));
int i;
for(i=2;i<items;i++)
lines[i-2] = SvPV(ST(i),PL_na);
gnome_pixmap_load_xpm_d_at_size(pixmap, lines, width, height);
free(lines);
}
void
load_rgb_d(pixmap, data, alpha, rgb_width, rgb_height, width=0, height=0)
Gnome::Pixmap pixmap
char * data
char * alpha
int rgb_width
int rgb_height
int width
int height
CODE:
if (items==7)
gnome_pixmap_load_rgb_d_at_size(pixmap, data, alpha,rgb_width, rgb_height, width, height);
else
gnome_pixmap_load_rgb_d(pixmap, data, alpha, rgb_width, rgb_height);
void
load_rgb_d_at_size(pixmap, data, alpha, rgb_width, rgb_height, width, height)
Gnome::Pixmap pixmap
char * data
char * alpha
int rgb_width
int rgb_height
int width
int height
CODE:
gnome_pixmap_load_rgb_d_at_size(pixmap, data,alpha,rgb_width, rgb_height, width, height);
void
file(orig)
char *orig
PPCODE:
char *s = gnome_pixmap_file(orig);
EXTEND(sp,1);
if(s) {
PUSHs(sv_2mortal(newSVpv(s,0)));
} else {
PUSHs(&PL_sv_undef);
}
g_free(s);
#endif
( run in 0.534 second using v1.01-cache-2.11-cpan-5511b514fd6 )