TYPEMAP
Cursor	T_IVOBJ

INPUT
T_IVOBJ
	if (sv_isa($arg, \"Tk::Xcursor\")) {
	    $var = INT2PTR($type, SvIV(SvRV($arg)));
	}
	else {
	    $var = ($type) NULL;
	    croak(\"$var is not of type Tk::Xcursor\");
	}

OUTPUT
T_IVOBJ
	sv_setref_iv($arg, \"Tk::Xcursor\", PTR2IV($var));