blob: b1d4ab023e3f95f03298b16ce7fc2668b0c6e438 (
plain)
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
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
|
;; -*- scheme -*-
;; These are snarfed from the GTK distribution. It needs to be updated from
;; time to time
(include "gtkenums.defs")
;;; Boxed types
(define-boxed GtkAccelGroup
gtk_accel_group_ref
gtk_accel_group_unref)
(define-boxed GtkStyle
gtk_style_ref
gtk_style_unref)
(define-boxed GtkSelectionData
gtk_selection_copy
gtk_selection_free)
(define-boxed GdkDragContext
gdk_drag_context_ref
gdk_drag_context_unref)
(define-boxed GdkColormap
gdk_colormap_ref
gdk_colormap_unref)
(define-boxed GdkFont
gdk_font_ref
gdk_font_unref)
(define-boxed GdkWindow
gdk_window_ref
gdk_window_unref)
(define-boxed GdkPixmap
gdk_window_ref
gdk_window_unref)
(define-boxed GdkBitmap
gdk_window_ref
gdk_window_unref)
(define-boxed GdkDrawable
gdk_window_ref
gdk_window_unref)
(define-boxed GdkEvent
gdk_event_copy
gdk_event_free
"sizeof(GdkEvent)")
(define-boxed GdkColor
gdk_color_copy
gdk_color_free
"sizeof(GdkColor)")
(define-boxed GdkGC
gdk_gc_ref
gdk_gc_unref)
(define-boxed GdkCursor
)
(define-boxed GtkCTreeNode
)
;;; Gdk Functions
(define-func gdk_font_load
GdkFont
((string name)))
(define-func gdk_fontset_load
GdkFont
((string name)))
(define-func gdk_draw_point
none
((GdkDrawable drawable)
(GdkGC gc)
(int x) (int y)))
(define-func gdk_draw_line
none
((GdkDrawable drawable)
(GdkGC gc)
(int x1) (int y1)
(int x2) (int y2)))
(define-func gdk_draw_rectangle
none
((GdkDrawable drawable)
(GdkGC gc)
(int filled)
(int x) (int y)
(int width) (int height)))
(define-func gdk_draw_arc
none
((GdkDrawable drawable)
(GdkGC gc)
(int filled)
(int x) (int y)
(int width) (int height)
(int angle1) (int angle2)))
; gdk_draw_polygon
(define-func gdk_draw_string
none
((GdkDrawable drawable)
(GdkFont font)
(GdkGC gc)
(int x) (int y)
(string str)))
; gdk_draw_text
(define-func gdk_draw_pixmap
none
((GdkDrawable drawable)
(GdkGC gc)
(GdkDrawable src)
(int xsrc) (int ysrc)
(int xdest) (int ydest)
(int width) (int height)))
;gdk_draw_points
;gdk_draw_segments
;gdk_draw_lines
(define-func gdk_cursor_new
GdkCursor
((GdkCursorType cursor_type)))
(define-func gdk_cursor_new_from_pixmap
GdkCursor
((GdkPixmap source)
(GdkBitmap mask)
(GdkColor fg)
(GdkColor bg)
(int x) (int y)))
;; these two are used extensively -- define early
(define-object GtkObject (nil))
(define-object GtkWidget (GtkObject))
; from gtktypeutils.h
(define-func gtk_type_from_name
uint
((string name)))
(define-func gtk_type_name
static_string
((uint type)))
;;; gtkmain.h
;; main
(define-func gtk_exit
none
((int code (= "0"))))
(define-func gtk_main
none
())
(define-func gtk_main_quit
none
())
;gtk_main_iteration
(define-func gtk_set_locale
static_string
())
(define-func gtk_quit_add_destroy
none
((uint main_level)
(GtkObject object)))
(define-func gtk_quit_remove
none
((uint quit_id)))
;gtk_timeout_add
(define-func gtk_timeout_remove
none
((int tag)))
;gtk_idle_add
(define-func gtk_idle_remove
none
((int tag)))
;gtk_input_add
(define-func gtk_input_remove
none
((int tag)))
(define-func gtk_events_pending
int
())
;; gtkrc.h
(define-func gtk_rc_parse
none
((string file)))
(define-func gtk_rc_parse_string
none
((string rc_string)))
(define-func gtk_rc_reparse_all
none
())
(define-func gtk_rc_get_style
GtkStyle
((GtkWidget widget)))
;(define-func gtk_rc_add_widget_name_style
; none
; ((GtkStyle style)
; (string pattern)))
;(define-func gtk_rc_add_widget_class_style
; none
; ((GtkStyle style)
; (string pattern)))
;(define-func gtk_rc_add_class_style
; none
; ((GtkStyle style)
; (string pattern)))
;; gtkaccelgroup.h
(define-func gtk_accel_group_new
GtkAccelGroup
())
(define-func gtk_accel_group_get_default
GtkAccelGroup
())
(define-func gtk_accel_group_activate
bool
((GtkAccelGroup group)
(uint key)
(GdkModifierType modifiers)))
(define-func gtk_accel_groups_activate
bool
((GtkObject object)
(uint key)
(GdkModifierType modifiers)))
(define-func gtk_accel_group_attach
none
((GtkAccelGroup group)
(GtkObject object)))
(define-func gtk_accel_group_detach
none
((GtkAccelGroup group)
(GtkObject object)))
(define-func gtk_accel_group_lock
none
((GtkAccelGroup group)))
(define-func gtk_accel_group_unlock
none
((GtkAccelGroup group)))
(define-func gtk_accel_group_lock_entry
none
((GtkAccelGroup group)
(uint key)
(GdkModifierType modifiers)))
(define-func gtk_accel_group_unlock_entry
none
((GtkAccelGroup group)
(uint key)
(GdkModifierType modifiers)))
(define-func gtk_accel_group_add
none
((GtkAccelGroup group)
(uint key)
(GdkModifierType modifiers)
(GtkAccelFlags flags)
(GtkObject object)
(string signal)))
(define-func gtk_accel_group_remove
none
((GtkAccelGroup group)
(uint key)
(GdkModifierType modifiers)
(GtkObject object)))
;; base functionality (GtkObject, signals, GtkWidget)
(include "gtkbase.defs")
;; dnd and selection stuff ...
(include "gtkdnd.defs")
;; descendents of GtkData (alignments, tooltips, etc)
(include "gtkdata.defs")
;; all the different containers
(include "gtkcontainers.defs")
;; all the rest ...
(include "gtkmisc.defs")
;; trees/lists ...
(include "gtklists.defs")
;; menus, menubars ...
(include "gtkmenus.defs")
;; ranges, rulers, scrollbars ...
(include "gtkranges.defs")
;; editable components ...
(include "gtkedit.defs")
|