view release on metacpan or  search on metacpan

X11/Xforms/Xforms.xs  view on Meta::CPAN

Window
fl_form_window(form)
	FLForm *	form
	CODE:
	{
		RETVAL = form->window;
	}
	OUTPUT:
	RETVAL

unsigned long
fl_form_vmode(...)
	ALIAS:
		deactivated = 1
		use_pixmap = 2
		frozen = 3
		visible = 4
		wm_border = 5
		prop = 6
		has_auto = 7
		top = 8
		compress_mask = 100
		evmask = 101
		icon_pixmap = 102
		icon_mask = 103
	CODE:
	{
		long	rw, field;
		FLForm * 	form; 

		rw = update_field(items);
		form = (FLForm *)chk_bless(ST(0), X11XformsFLForm);
		
		if (rw)
			field = SvIV(ST(1));

		switch (ix) {
		case 100:
			ObjRWfld(form->compress_mask);
			break;
		case 101:
			ObjRWfld(form->evmask);
			break;
		case 102:
			ObjRWfld(form->icon_pixmap);
			break;
		case 103:
			ObjRWfld(form->icon_mask);
			break;
		default:
			ObjRWfld(((FLF_ARRAY *)form)->flf_int[ix]);
		}
	}
	OUTPUT:
	RETVAL


char * 
fl_form_label(...)
	ALIAS:
		u_cdata = 1
	CODE:
	{
		int	rw;
		FLForm * 	form; 

		rw = update_field(items);
		form = (FLForm *)chk_bless(ST(0), X11XformsFLForm);
		
		if (ix == 0)
		{
			RETVAL = form->label;
			if (rw)
				form->label = SvPV(ST(1),na);
		}
		else
#if FL_INCLUDE_VERSION < 87
			croak("Field \"%s\" not in FL_FORM structure in your version of xforms", GvNAME(CvGV(cv)));
#else
		{
			RETVAL = form->u_cdata;
			if (rw)
				form->u_cdata = SvPV(ST(1),na);
		}
#endif
	}
	OUTPUT:
	RETVAL

FLObject *
fl_form_first(form)
	FLForm *	form
	ALIAS:
		last = 1
		focusobj = 2
	CODE:
	{
		RETVAL = (((FLF_ARRAY *)form)->flf_flo[ix]);
		if (RETVAL == NULL)
			ST(0) = &sv_undef;
		else
			ST(0) = bless_object(RETVAL);			
	}

MODULE = X11::Xforms	PACKAGE = X11::Xforms::FLObject 	PREFIX = fl_object_

PROTOTYPES: DISABLE

FLForm *
fl_object_form(object)
	FLObject *	object
	CODE:
	{
		RETVAL = object->form;
		if (RETVAL == NULL)
			ST(0) = &sv_undef;
		else
			ST(0) = bless_form(RETVAL);			
	}

long
fl_object_u_ldata(object,...)
	FLObject *	object
	CODE:
	{
		int	rw;
		FLObject * 	object; 

		rw = update_field(items);
		object = (FLObject *)chk_bless(ST(0), X11XformsFLObject);
		
		RETVAL = object->u_ldata;
		if (rw)
			object->u_ldata = SvIV(ST(1));
	}
	OUTPUT:
	RETVAL

void *
fl_object_u_vdata(...)
	CODE:
	{
		int	rw;

X11/Xforms/Xforms.xs  view on Meta::CPAN

	}
	OUTPUT:
	RETVAL

FL_COLOR
fl_object_col1(...)
	ALIAS:
		col2 = 1
		lcol = 2
		aux_col1 = 3
		aux_col2 = 4
		dbl_background = 5
	CODE:
	{
				FL_COLOR field;
				int     rw;
		FLObject * 	object; 

		rw = update_field(items);
		object = (FLObject *)chk_bless(ST(0), X11XformsFLObject);
		
		if (rw)
			field = (FL_COLOR)SvIV(ST(1));

		switch (ix) {
#if FL_INCLUDE_VERSION < 87
		case 3:
		case 4:
		case 5:
			croak("Field \"%s\" not in FL_OBJECT structure in your version of xforms", GvNAME(CvGV(cv)));
			break;
#endif
		case 0:
			ObjRWfld(object->col1);
			break;
		case 1:
			ObjRWfld(object->col2);
			break;
		case 2:
			ObjRWfld(object->lcol);
			break;
#if FL_INCLUDE_VERSION >= 87
		case 3:
			ObjRWfld(object->aux_col1);
			break;
		case 4:
			ObjRWfld(object->aux_col2);
			break;
		case 5:
			ObjRWfld(object->dbl_background);
			break;
#endif
		}
	}
	OUTPUT:
	RETVAL

char *
fl_object_label(...)
	ALIAS:
		u_cdata	= 1
	CODE:
	{
				int     rw;
		FLObject * 	object; 

		rw = update_field(items);
		object = (FLObject *)chk_bless(ST(0), X11XformsFLObject);
		
		if (ix == 0)
		{
			RETVAL = object->label;
			if (rw)
				object->label = SvPV(ST(1),na);
		}
		else
#if FL_INCLUDE_VERSION < 87
			croak("Field \"%s\" not in FL_OBJECT structure in your version of xforms", GvNAME(CvGV(cv)));
#else
		{
			RETVAL = object->u_cdata;
			if (rw)
				object->u_cdata = SvPV(ST(1),na);
		}
#endif
	}
	OUTPUT:
	RETVAL

Window
fl_object_window(object)
	FLObject *	object
	CODE:
	{
		RETVAL = object->form->window;
	}
	OUTPUT:
	RETVAL

FLObject *
fl_prev(object)
	FLObject *	object
	ALIAS:
        next = 1
		parent = 2
		child = 3
		nc = 4
	CODE:
	{
		RETVAL = (((FLO_ARRAY *)object)->flo_obj[ix]);
		if (RETVAL == NULL)
			ST(0) = &sv_undef;
		else
			ST(0) = bless_object(RETVAL);			
	}

long
fl_use_pixmap(...)
	ALIAS:
        double_buffer = 1
		object_pushed = 2
		focus = 3
		belowmouse = 4
		active = 5
		input = 6
		wantkey = 7
		radio = 8
		automatic = 9
		redraw = 10
		visible = 11
		clip = 12
		resize = 100
		nwgravity = 101
		segravity = 102
		objclass = 200
		type = 201
		boxtype = 202
		align = 300
		lsize = 301
		lstyle = 302
		click_timeout = 400
		argument = 401
		how_return = 404