#
#################################### XS SECTION
#

Widget		T_WIDGET
XFont		T_PTROBJ
String_Array	T_PACKED
RGB_Array	T_PACKED
Byte_Array	T_OPAQUEPTR
int *		T_PACKED
KVMT		T_PTROBJ
PROC		T_PTROBJ
USER		T_PTROBJ


INPUT
T_WIDGET
	if (($arg == &sv_undef) || (SvTYPE($arg) == SVt_NULL)) {
	  $var = NULL;
	} else if (sv_isa($arg,\"SxWidget\")) {
	  unsigned long tmp;
	  tmp = (unsigned long)SvNV((SV*)SvRV($arg));
          $var = ((struct Edata *)(tmp))->w;
	} else {
	  sv_dump($arg);
	  croak(\"$var (%x) is not a SxWidget\",$arg); 
	}

OUTPUT
T_WIDGET
	tmp->w = RETVAL;
	tmp->mysv = $arg;
	sv_setptrobj(tmp->mysv, tmp, \"SxWidget\");
	SvREFCNT_inc(tmp->mysv);	
	$arg = tmp->mysv;