File: GdkCursor.xs

package info (click to toggle)
libgtk2-perl 2:1.2499-1
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 4,668 kB
  • ctags: 594
  • sloc: perl: 22,100; ansic: 122; makefile: 17
file content (119 lines) | stat: -rw-r--r-- 3,215 bytes parent folder | download | duplicates (3)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
/*
 * 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 */