#
# Copyright (C) 2003 by the gtk2-perl team (see the file AUTHORS for the full
# list)
# 
# This library is free software; you can redistribute it and/or modify it under
# the terms of the GNU Library General Public License as published by the Free
# Software Foundation; either version 2.1 of the License, or (at your option)
# any later version.
# 
# This library is distributed in the hope that it will be useful, but WITHOUT
# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
# FOR A PARTICULAR PURPOSE.  See the GNU Library General Public License for
# more details.
# 
# You should have received a copy of the GNU Library General Public License
# along with this library; if not, write to the Free Software Foundation, Inc.,
# 59 Temple Place - Suite 330, Boston, MA  02111-1307  USA.
#
# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/gdk.typemap,v 1.10 2003/11/13 18:27:40 muppetman Exp $
#

# this is where Gdk hand coded typemap stuff resides
TYPEMAP

# can be either a pointer or an integer, this handles both cases
GdkNativeWindow		T_UV

# GdkBitmap doesn't get its own type id, but needs to be treated separately.
GdkBitmap *		T_GPERL_GENERIC_WRAPPER
GdkBitmap_ornull *	T_GPERL_GENERIC_WRAPPER
GdkBitmap_noinc *	T_GPERL_GENERIC_WRAPPER

# one of those magickal opaque pointer types
GdkAtom 		T_GPERL_GENERIC_WRAPPER

# unfortunately this is not a boxed type
GdkGeometry *		T_GDK_GEOMETRY

INPUT

T_GDK_GEOMETRY
	if (!sv_derived_from ($arg, \"Gtk2::Gdk::Geometry\"))
        	croak (\"$var is not of type Gtk2::Gdk::Geometry\");
	if (SvCUR (SvRV ($arg)) != sizeof (GdkGeometry))
        	croak (\"$var is a corrupted Gtk2::Gdk::Geometry object\");
        $var = (GdkGeometry *)SvPVX (SvRV ($arg));

OUTPUT

T_GDK_GEOMETRY
	sv_setref_pvn ($arg, \"Gtk2::Gdk::Geometry\", (char *)$var, sizeof (GdkGeometry));