/*
 * Copyright (c) 2003-2005, 2010 by the gtk2-perl team (see the file AUTHORS)
 *
 * 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.
 *
 * $Id$
 */

#include "gtk2perl.h"

MODULE = Gtk2::Gdk::Cursor	PACKAGE = Gtk2::Gdk::Cursor	PREFIX = gdk_cursor_

=for position DESCRIPTION

=head1 DESCRIPTION

For reference, cursors are a per-display resource and can only be used
with the display they were created on.

As of Gtk 2.22 a cursor doesn't keep a reference to its
C<Gtk2::Gdk::Display> and if the display object is destroyed before
the cursor then a later destroy of the cursor may get a segv.
Perl-Gtk2 doesn't try to do anything about this.  Care may be needed
if keeping a cursor separate from a widget or window.  (Closing the
display is fine, but not destroying it.)

=cut

GdkCursorType
gdk_cursor_type (cursor)
	GdkCursor *cursor
    CODE:
	RETVAL = cursor->type;
    OUTPUT:
	RETVAL

#if GTK_CHECK_VERSION(2,2,0)

## GdkCursor* gdk_cursor_new_for_display (GdkDisplay *display, GdkCursorType cursor_type)
GdkCursor_own*
gdk_cursor_new_for_display (class, display, cursor_type)
	GdkDisplay *display
	GdkCursorType cursor_type
    C_ARGS:
	display, cursor_type

## GdkDisplay* gdk_cursor_get_display (GdkCursor *cursor)
GdkDisplay*
gdk_cursor_get_display (cursor)
	GdkCursor *cursor

#endif

 ## GdkCursor* gdk_cursor_new (GdkCursorType cursor_type)
GdkCursor_own*
gdk_cursor_new (class, cursor_type)
	GdkCursorType cursor_type
    C_ARGS:
	cursor_type

 ## GdkCursor* gdk_cursor_new_from_pixmap (GdkPixmap *source, GdkPixmap *mask, GdkColor *fg, GdkColor *bg, gint x, gint y)
GdkCursor_own*
gdk_cursor_new_from_pixmap (class, source, mask, fg, bg, x, y)
	GdkPixmap *source
	GdkPixmap *mask
	GdkColor *fg
	GdkColor *bg
	gint x
	gint y
    C_ARGS:
	source, mask, fg, bg, x, y


#if GTK_CHECK_VERSION(2, 4, 0)

## GdkCursor * gdk_cursor_new_from_pixbuf (GdkDisplay *display, GdkPixbuf  *pixbuf, gint x, gint y)
GdkCursor_own *
gdk_cursor_new_from_pixbuf (class, display, pixbuf, x, y)
	GdkDisplay *display
	GdkPixbuf  *pixbuf
	gint x
	gint y
    C_ARGS:
	display, pixbuf, x, y

#endif

#if GTK_CHECK_VERSION (2, 8, 0)

## GdkCursor* gdk_cursor_new_from_name (GdkDisplay  *display, const gchar *name);
GdkCursor_own*
gdk_cursor_new_from_name (class, display, name)
	GdkDisplay  *display
	const gchar *name
    C_ARGS:
	display, name

GdkPixbuf_noinc* gdk_cursor_get_image (GdkCursor *cursor);

#endif

#if GTK_CHECK_VERSION (2, 22, 0)

GdkCursorType gdk_cursor_get_cursor_type (GdkCursor *cursor);

#endif /* 2.22 */