The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
local @IconHandle
{
	Handle xorMask;
	Handle andMask;
}

object Prima::Icon( Prima::Image)
{
	unsigned char*    mask;
	int               maskType;
	int               maskLine;
	int               maskSize;
	Color             maskColor;
	int               maskIndex;
	int               autoMasking;
	property SV *     mask;
	property int      maskType;
	property Color    maskColor;
	property int      maskIndex;
	property int      autoMasking;
	method Handle     bitmap();
	method void       init( HV * profile);
	method Handle     extract( int x, int y, int width, int height);
	method Handle     dup();
	method void       set( HV * profile);
	method IconHandle split();
	method void       combine( Handle xorMask, Handle andMask);
	method void       premultiply_alpha(SV * alpha = nilSV);
	method Bool       alpha(int alpha, int x1=-1, int y1=-1, int x2=-1, int y2=-1);
	c_only void       create_empty( int width, int height, int type);
	c_only void       create_empty_icon( int width, int height, int type, int maskType);
	c_only void       update_change();
	c_only void       stretch( int width, int height);
	c_only Byte*      convert_mask( int type );
}