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
120
121
122
123
124
125
126
127
128
129
130
|
;; Automatically generated - DO NOT EDIT
(include "gtk-lib.types")
"#include \"gauche-gtk.h\""
;; enum GdkCursorType
(define-enum GDK_X_CURSOR)
(define-enum GDK_ARROW)
(define-enum GDK_BASED_ARROW_DOWN)
(define-enum GDK_BASED_ARROW_UP)
(define-enum GDK_BOAT)
(define-enum GDK_BOGOSITY)
(define-enum GDK_BOTTOM_LEFT_CORNER)
(define-enum GDK_BOTTOM_RIGHT_CORNER)
(define-enum GDK_BOTTOM_SIDE)
(define-enum GDK_BOTTOM_TEE)
(define-enum GDK_BOX_SPIRAL)
(define-enum GDK_CENTER_PTR)
(define-enum GDK_CIRCLE)
(define-enum GDK_CLOCK)
(define-enum GDK_COFFEE_MUG)
(define-enum GDK_CROSS)
(define-enum GDK_CROSS_REVERSE)
(define-enum GDK_CROSSHAIR)
(define-enum GDK_DIAMOND_CROSS)
(define-enum GDK_DOT)
(define-enum GDK_DOTBOX)
(define-enum GDK_DOUBLE_ARROW)
(define-enum GDK_DRAFT_LARGE)
(define-enum GDK_DRAFT_SMALL)
(define-enum GDK_DRAPED_BOX)
(define-enum GDK_EXCHANGE)
(define-enum GDK_FLEUR)
(define-enum GDK_GOBBLER)
(define-enum GDK_GUMBY)
(define-enum GDK_HAND1)
(define-enum GDK_HAND2)
(define-enum GDK_HEART)
(define-enum GDK_ICON)
(define-enum GDK_IRON_CROSS)
(define-enum GDK_LEFT_PTR)
(define-enum GDK_LEFT_SIDE)
(define-enum GDK_LEFT_TEE)
(define-enum GDK_LEFTBUTTON)
(define-enum GDK_LL_ANGLE)
(define-enum GDK_LR_ANGLE)
(define-enum GDK_MAN)
(define-enum GDK_MIDDLEBUTTON)
(define-enum GDK_MOUSE)
(define-enum GDK_PENCIL)
(define-enum GDK_PIRATE)
(define-enum GDK_PLUS)
(define-enum GDK_QUESTION_ARROW)
(define-enum GDK_RIGHT_PTR)
(define-enum GDK_RIGHT_SIDE)
(define-enum GDK_RIGHT_TEE)
(define-enum GDK_RIGHTBUTTON)
(define-enum GDK_RTL_LOGO)
(define-enum GDK_SAILBOAT)
(define-enum GDK_SB_DOWN_ARROW)
(define-enum GDK_SB_H_DOUBLE_ARROW)
(define-enum GDK_SB_LEFT_ARROW)
(define-enum GDK_SB_RIGHT_ARROW)
(define-enum GDK_SB_UP_ARROW)
(define-enum GDK_SB_V_DOUBLE_ARROW)
(define-enum GDK_SHUTTLE)
(define-enum GDK_SIZING)
(define-enum GDK_SPIDER)
(define-enum GDK_SPRAYCAN)
(define-enum GDK_STAR)
(define-enum GDK_TARGET)
(define-enum GDK_TCROSS)
(define-enum GDK_TOP_LEFT_ARROW)
(define-enum GDK_TOP_LEFT_CORNER)
(define-enum GDK_TOP_RIGHT_CORNER)
(define-enum GDK_TOP_SIDE)
(define-enum GDK_TOP_TEE)
(define-enum GDK_TREK)
(define-enum GDK_UL_ANGLE)
(define-enum GDK_UMBRELLA)
(define-enum GDK_UR_ANGLE)
(define-enum GDK_WATCH)
(define-enum GDK_XTERM)
(define-enum GDK_LAST_CURSOR)
(define-enum GDK_CURSOR_IS_PIXMAP)
;; struct GdkCursor
"static void scm_GdkCursor_finalize(ScmObj obj, void* data)
{
ScmGdkCursor *p = (ScmGdkCursor*)obj;
GdkCursor *d = SCM_GDK_CURSOR(obj);
gdk_cursor_unref(d);
p->data = NULL;
}"
"ScmObj Scm_MakeGdkCursor(GdkCursor *data)
{
ScmGdkCursor *z = SCM_NEW(ScmGdkCursor);
SCM_SET_CLASS(z, SCM_CLASS_GDK_CURSOR);
z->data = data;
Scm_RegisterFinalizer(SCM_OBJ(z), scm_GdkCursor_finalize, NULL);
gdk_cursor_ref(z->data);
return SCM_OBJ(z);
}"
(define-cclass <gdk-cursor>
"GdkCursor*" "Scm_GdkCursorClass"
()
(
(type :type <int>)
(ref-count :type <uint>)
)
)
;; gdk_cursor_get_type
;; gdk_cursor_new_for_display
(define-cproc gdk-cursor-new-for-display (display::<gdk-display> cursor_type::<int>) (return <gdk-cursor> "gdk_cursor_new_for_display"))
;; gdk_cursor_new
(define-cproc gdk-cursor-new (cursor_type::<int>) (return <gdk-cursor> "gdk_cursor_new"))
;; gdk_cursor_new_from_pixmap
(define-cproc gdk-cursor-new-from-pixmap (source::<gdk-drawable> mask::<gdk-drawable> fg::<gdk-color> bg::<gdk-color> x::<int> y::<int>) (return <gdk-cursor> "gdk_cursor_new_from_pixmap"))
;; gdk_cursor_get_display
(define-cproc gdk-cursor-get-display (cursor::<gdk-cursor>) (return <gdk-display> "gdk_cursor_get_display"))
;; gdk_cursor_ref
;; gdk_cursor_unref
|
