source: trunk/third/rep-gtk/gdk.defs @ 15286

Revision 15286, 12.1 KB checked in by ghudson, 24 years ago (diff)
This commit was generated by cvs2svn to compensate for changes in r15285, which included commits to RCS files with non-trunk default branches.
Line 
1;; -*- scheme -*-
2
3;;; Gdk enums
4
5(define-enum GdkWindowType
6  (root GDK_WINDOW_ROOT)
7  (toplevel GDK_WINDOW_TOPLEVEL)
8  (child GDK_WINDOW_CHILD)
9  (dialog GDK_WINDOW_DIALOG)
10  (temp GDK_WINDOW_TEMP)
11  (pixmap GDK_WINDOW_PIXMAP))
12
13(define-enum GdkWindowClass
14  (input-output GDK_INPUT_OUTPUT)
15  (input-only GDK_INPUT_ONLY))
16
17(define-enum GdkImageType
18  (normal GDK_IMAGE_NORMAL)
19  (shared GDK_IMAGE_SHARED)
20  (fastest GDK_IMAGE_FASTEST))
21
22(define-enum GdkVisualType
23  (static-gray GDK_VISUAL_STATIC_GRAY)
24  (grayscale GDK_VISUAL_GRAYSCALE)
25  (static-color GDK_VISUAL_STATIC_COLOR)
26  (pseudo-color GDK_VISUAL_PSEUDO_COLOR)
27  (true-color GDK_VISUAL_TRUE_COLOR)
28  (direct-color GDK_VISUAL_DIRECT_COLOR))
29
30(define-flags GdkWindowAttributesType
31  (title GDK_WA_TITLE)
32  (x GDK_WA_X)
33  (y GDK_WA_Y)
34  (cursor GDK_WA_CURSOR)
35  (colormap GDK_WA_COLORMAP)
36  (visual GDK_WA_VISUAL))
37
38(define-flags GdkWindowHints
39  (pos GDK_HINT_POS)
40  (min-size GDK_HINT_MIN_SIZE)
41  (max-size GDK_HINT_MAX_SIZE))
42
43(define-enum GdkFunction
44  (copy GDK_COPY)
45  (invert GDK_INVERT)
46  (xor GDK_XOR))
47
48(define-enum GdkFill
49  (solid GDK_SOLID)
50  (tiled GDK_TILED)
51  (stippled GDK_STIPPLED)
52  (opaque-stippled GDK_OPAQUE_STIPPLED))
53
54(define-enum GdkLineStyle
55  (solid GDK_LINE_SOLID)
56  (on-off-dash GDK_LINE_ON_OFF_DASH)
57  (double-dash GDK_LINE_DOUBLE_DASH))
58
59(define-enum GdkCapStyle
60  (not-last GDK_CAP_NOT_LAST)
61  (butt GDK_CAP_BUTT)
62  (round GDK_CAP_ROUND)
63  (projecting GDK_CAP_PROJECTING))
64
65(define-enum GdkJoinStyle
66  (miter GDK_JOIN_MITER)
67  (round GDK_JOIN_ROUND)
68  (bevel GDK_JOIN_BEVEL))
69
70(define-enum GdkCursorType
71  (cursor GDK_LAST_CURSOR))
72
73(define-enum GdkEventType
74  (nothing GDK_NOTHING)
75  (delete GDK_DELETE)
76  (destroy GDK_DESTROY)
77  (expose GDK_EXPOSE)
78  (motion-notify GDK_MOTION_NOTIFY)
79  (button-press GDK_BUTTON_PRESS)
80  (2button-press GDK_2BUTTON_PRESS)
81  (3button-press GDK_3BUTTON_PRESS)
82  (button-release GDK_BUTTON_RELEASE)
83  (key-press GDK_KEY_PRESS)
84  (key-release GDK_KEY_RELEASE)
85  (enter-notify GDK_ENTER_NOTIFY)
86  (leave-notify GDK_LEAVE_NOTIFY)
87  (focus-change GDK_FOCUS_CHANGE)
88  (configure GDK_CONFIGURE)
89  (map GDK_MAP)
90  (unmap GDK_UNMAP)
91  (property-notify GDK_PROPERTY_NOTIFY)
92  (selection-clear GDK_SELECTION_CLEAR)
93  (selection-request GDK_SELECTION_REQUEST)
94  (selection-notify GDK_SELECTION_NOTIFY)
95  (proximity-in GDK_PROXIMITY_IN)
96  (proximity-out GDK_PROXIMITY_OUT)
97  (drag-enter GDK_DRAG_ENTER)
98  (drag-leave GDK_DRAG_LEAVE)
99  (drag-motion GDK_DRAG_MOTION)
100  (drag-status GDK_DRAG_STATUS)
101  (drop-start GDK_DROP_START)
102  (drop-finished GDK_DROP_FINISHED)
103  (client-event GDK_CLIENT_EVENT)
104  (visibility-notify GDK_VISIBILITY_NOTIFY)
105  (no-expose GDK_NO_EXPOSE))
106
107(define-flags GdkEventMask
108  (exposure-mask GDK_EXPOSURE_MASK)
109  (pointer-motion-mask GDK_POINTER_MOTION_MASK)
110  (pointer-motion-hint-mask GDK_POINTER_MOTION_HINT_MASK)
111  (button-motion-mask GDK_BUTTON_MOTION_MASK)
112  (button1-motion-mask GDK_BUTTON1_MOTION_MASK)
113  (button2-motion-mask GDK_BUTTON2_MOTION_MASK)
114  (button3-motion-mask GDK_BUTTON3_MOTION_MASK)
115  (button-press-mask GDK_BUTTON_PRESS_MASK)
116  (button-release-mask GDK_BUTTON_RELEASE_MASK)
117  (key-press-mask GDK_KEY_PRESS_MASK)
118  (key-release-mask GDK_KEY_RELEASE_MASK)
119  (enter-notify-mask GDK_ENTER_NOTIFY_MASK)
120  (leave-notify-mask GDK_LEAVE_NOTIFY_MASK)
121  (focus-change-mask GDK_FOCUS_CHANGE_MASK)
122  (structure-mask GDK_STRUCTURE_MASK)
123  (all-events-mask GDK_ALL_EVENTS_MASK))
124
125(define-enum GdkNotifyType
126  (ancestor GDK_NOTIFY_ANCESTOR)
127  (virtual GDK_NOTIFY_VIRTUAL)
128  (inferior GDK_NOTIFY_INFERIOR)
129  (nonlinear GDK_NOTIFY_NONLINEAR)
130  (nonlinear-virtual GDK_NOTIFY_NONLINEAR_VIRTUAL)
131  (unknown GDK_NOTIFY_UNKNOWN))
132
133(define-flags GdkModifierType
134  (shift-mask GDK_SHIFT_MASK)
135  (lock-mask GDK_LOCK_MASK)
136  (control-mask GDK_CONTROL_MASK)
137  (mod1-mask GDK_MOD1_MASK)
138  (mod2-mask GDK_MOD2_MASK)
139  (mod3-mask GDK_MOD3_MASK)
140  (mod4-mask GDK_MOD4_MASK)
141  (mod5-mask GDK_MOD5_MASK)
142  (button1-mask GDK_BUTTON1_MASK)
143  (button2-mask GDK_BUTTON2_MASK)
144  (button3-mask GDK_BUTTON3_MASK)
145  (button4-mask GDK_BUTTON4_MASK)
146  (button5-mask GDK_BUTTON5_MASK))
147
148(define-enum GdkSubwindowMode
149  (clip-by-children GDK_CLIP_BY_CHILDREN)
150  (include-inferiors GDK_INCLUDE_INFERIORS))
151
152(define-flags GdkInputCondition
153  (read GDK_INPUT_READ)
154  (write GDK_INPUT_WRITE)
155  (exception GDK_INPUT_EXCEPTION))
156
157(define-enum GdkStatus
158  (ok GDK_OK)
159  (error GDK_ERROR)
160  (error-param GDK_ERROR_PARAM)
161  (error-file GDK_ERROR_FILE)
162  (error-mem GDK_ERROR_MEM))
163
164(define-enum GdkByteOrder
165  (lsb-first GDK_LSB_FIRST)
166  (msb-first GDK_MSB_FIRST))
167
168(define-flags GdkGCValuesMask
169  (foreground GDK_GC_FOREGROUND)
170  (background GDK_GC_BACKGROUND)
171  (font GDK_GC_FONT)
172  (function GDK_GC_FUNCTION)
173  (fill GDK_GC_FILL)
174  (tile GDK_GC_TILE)
175  (stipple GDK_GC_STIPPLE)
176  (clip-mask GDK_GC_CLIP_MASK)
177  (subwindow GDK_GC_SUBWINDOW)
178  (ts-x-origin GDK_GC_TS_X_ORIGIN)
179  (ts-y-origin GDK_GC_TS_Y_ORIGIN)
180  (clip-x-origin GDK_GC_CLIP_X_ORIGIN)
181  (clip-y-origin GDK_GC_CLIP_Y_ORIGIN)
182  (exposures GDK_GC_EXPOSURES)
183  (line-width GDK_GC_LINE_WIDTH)
184  (line-style GDK_GC_LINE_STYLE)
185  (cap-style GDK_GC_CAP_STYLE)
186  (join-style GDK_GC_JOIN_STYLE))
187
188(define-enum GdkSelection
189  (primary GDK_SELECTION_PRIMARY)
190  (secondary GDK_SELECTION_SECONDARY))
191
192(define-enum GdkPropertyState
193  (new-value GDK_PROPERTY_NEW_VALUE)
194  (delete GDK_PROPERTY_DELETE))
195
196(define-enum GdkPropMode
197  (replace GDK_PROP_MODE_REPLACE)
198  (prepend GDK_PROP_MODE_PREPEND)
199  (append GDK_PROP_MODE_APPEND))
200
201(define-enum GdkOverlapType
202  (in GDK_OVERLAP_RECTANGLE_IN)
203  (out GDK_OVERLAP_RECTANGLE_OUT)
204  (part GDK_OVERLAP_RECTANGLE_PART))
205
206(define-flags GdkWMDecoration
207  (all GDK_DECOR_ALL)
208  (border GDK_DECOR_BORDER)
209  (resizeh GDK_DECOR_RESIZEH)
210  (title GDK_DECOR_TITLE)
211  (menu GDK_DECOR_MENU)
212  (minimize GDK_DECOR_MINIMIZE)
213  (maximize GDK_DECOR_MAXIMIZE))
214
215(define-flags GdkWMFunction
216  (all GDK_FUNC_ALL)
217  (resize GDK_FUNC_RESIZE)
218  (move GDK_FUNC_MOVE)
219  (minimize GDK_FUNC_MINIMIZE)
220  (maximize GDK_FUNC_MAXIMIZE)
221  (close GDK_FUNC_CLOSE))
222
223(define-enum GdkVisibilityState
224  (unobscured GDK_VISIBILITY_UNOBSCURED)
225  (partial GDK_VISIBILITY_PARTIAL)
226  (fully-obscured GDK_VISIBILITY_FULLY_OBSCURED))
227
228(define-enum GdkInputSource
229  (mouse GDK_SOURCE_MOUSE)
230  (pen GDK_SOURCE_PEN)
231  (eraser GDK_SOURCE_ERASER)
232  (cursor GDK_SOURCE_CURSOR))
233
234;;; Gdk boxed types
235
236;;(define-boxed GdkPoint
237;;  (copy gdk_point_copy)
238;;  (free gdk_point_destroy))
239
240(define-boxed GdkColormap
241  (copy gdk_colormap_ref)
242  (free gdk_colormap_unref))
243
244(define-boxed GdkVisual
245  (copy gdk_visual_ref)
246  (free gdk_visual_unref))
247
248(define-boxed GdkFont
249  (copy gdk_font_ref)
250  (free gdk_font_unref)
251  (conversion "sgtk_font_conversion"))
252
253(add-options GdkFont (conversion "sgtk_font_conversion"))
254
255(define-boxed GdkWindow
256  (copy gdk_window_ref)
257  (free gdk_window_unref))
258
259(define-boxed GdkEvent
260  (copy gdk_event_copy)
261  (free gdk_event_free)
262  (size "sizeof(GdkEvent)"))
263
264(define-boxed GdkColor
265  (copy gdk_color_copy)
266  (free gdk_color_free)
267  (size "sizeof(GdkColor)")
268  (fields (uint red)
269          (uint green)
270          (uint blue))
271  (conversion "sgtk_color_conversion"))
272
273(add-options GdkColor (conversion "sgtk_color_conversion"))
274
275;;; GdkGC
276
277(define-boxed GdkGC
278  (copy gdk_gc_ref)
279  (free gdk_gc_unref))
280
281(define-func gdk_gc_new
282  (GdkGC (copy nil))
283  ((GdkWindow window)))
284
285(define-func gdk_gc_set_foreground
286  none
287  ((GdkGC gc)
288   (GdkColor color)))
289
290(define-func gdk_gc_set_background
291  none
292  ((GdkGC gc)
293   (GdkColor color)))
294
295(define-func gdk_gc_set_font
296  none
297  ((GdkGC gc)
298   (GdkFont font)))
299
300(define-func gdk_gc_set_function
301  none
302  ((GdkGC gc)
303   (GdkFunction function)))
304
305(define-func gdk_gc_set_fill
306  none
307  ((GdkGC gc)
308   (GdkFill fill)))
309
310;(define-func gdk_gc_set_tile
311;  none
312;  ((GdkGC gc)
313;   (GdkPixmap tile)))
314
315;(define-func gdk_gc_set_stipple
316;  none
317;  ((GdkGC gc)
318;   (GdkPixmap stipple)))
319
320(define-func gdk_gc_set_ts_origin
321  none
322  ((GdkGC gc)
323   (int x)
324   (int y)))
325
326(define-func gdk_gc_set_clip_origin
327  none
328  ((GdkGC gc)
329   (int x)
330   (int y)))
331
332;(define-func gdk_gc_set_clip_mask
333;  none
334;  ((GdkGC gc)
335;   (GdkBitmap mask)))
336
337(define-func gdk_gc_set_subwindow
338  none
339  ((GdkGC gc)
340   (GdkSubwindowMode mode)))
341
342(define-func gdk_gc_set_exposures
343  none
344  ((GdkGC gc)
345   (bool exposures)))
346
347(define-func gdk_gc_set_line_attributes
348  none
349  ((GdkGC gc)
350   (int line_width)
351   (GdkLineStyle line_style)
352   (GdkCapStyle cap_style)
353   (GdkJoinStyle join_style)))
354
355(define-func gdk_draw_line
356  none
357  ((GdkWindow window)
358   (GdkGC gc)
359   (int x1)
360   (int y1)
361   (int x2)
362   (int y2)))
363
364(define-func gdk_draw_lines
365  none
366  ((GdkWindow window)
367   (GdkGC gc)
368   ((cvecr point) points)))
369
370(define-func gdk_draw_rectangle
371  none
372  ((GdkWindow window)
373   (GdkGC gc)
374   (bool filled)
375   (int x)
376   (int y)
377   (int width)
378   (int height)))
379
380(define-func gdk_draw_polygon
381  none
382  ((GdkWindow window)
383   (GdkGC gc)
384   (bool filled)
385   ((cvecr point) points)))
386
387(define-func gdk_draw_arc
388  none
389  ((GdkWindow window)
390   (GdkGC gc)
391   (bool filled)
392   (int x)
393   (int y)
394   (int width)
395   (int height)
396   (int angle1)
397   (int angle2)))
398
399(define-func gdk_draw_string
400  none
401  ((GdkWindow window)
402   (GdkFont font)
403   (GdkGC gc)
404   (int x)
405   (int y)
406   (string string)))
407
408(define-func gdk_window_clear_area
409  none
410  ((GdkWindow window)
411   (int x)
412   (int y)
413   (int width)
414   (int height)))
415
416(define-func gdk_window_clear_area_e
417  none
418  ((GdkWindow window)
419   (int x)
420   (int y)
421   (int width)
422   (int height)))
423
424(define-func gdk_window_xid
425  uint
426  ((GdkWindow window)))
427
428(define-func gdk_pixmap_new
429  GdkWindow
430  ((GdkWindow window (null-ok))
431   (int width)
432   (int height)
433   (int depth (= "-1"))))
434
435(define-func gdk_draw_pixmap
436  none
437  ((GdkWindow drawable)
438   (GdkGC gc)
439   (GdkWindow src)
440   (int xsrc)
441   (int ysrc)
442   (int xdest)
443   (int ydest)
444   (int width)
445   (int height)))
446
447(define-func gdk_set_locale
448  static_string
449  ())
450
451;; Gdk functions
452
453(define-func gdk_font_load
454  (GdkFont (copy nil))
455  ((string name)))
456
457(define-func gdk_fontset_load
458  (GdkFont (copy nil))
459  ((string name)))
460
461(define-func gdk_flush
462  none
463  ())
464
465(define-func gdk_screen_width
466  int
467  ())
468
469(define-func gdk_screen_height
470  int
471  ())
472
473;; Color
474
475;; XXX lots missing
476
477(define-func gdk_color_parse_interp
478  GdkColor
479  ((string spec)))
480
481(define-func gdk_color_intern
482  GdkColor
483  ((GdkColor color)))
484
485(define-func gdk_font_intern
486  GdkFont
487  ((GdkFont font)))
488
489(define-func gdk_event_type
490  GdkEventType
491  ((GdkEvent event)))
492
493(define-func gdk_event_window
494  GdkWindow
495  ((GdkEvent event)))
496
497(define-func gdk_event_send_event
498  bool
499  ((GdkEvent event)))
500
501;(define-func gdk_event_area
502;  GdkRectangle
503;  ((GdkEvent event)))
504
505(define-func gdk_event_visibility_state
506  GdkVisibilityState
507  ((GdkEvent event)))
508
509(define-func gdk_event_time
510  uint
511  ((GdkEvent event)))
512
513(define-func gdk_event_x
514  float
515  ((GdkEvent event)))
516
517(define-func gdk_event_y
518  float
519  ((GdkEvent event)))
520
521(define-func gdk_event_pressure
522  float
523  ((GdkEvent event)))
524
525(define-func gdk_event_xtilt
526  float
527  ((GdkEvent event)))
528
529(define-func gdk_event_ytilt
530  float
531  ((GdkEvent event)))
532
533(define-func gdk_event_button
534  int
535  ((GdkEvent event)))
536
537(define-func gdk_event_button_state
538  bool
539  ((GdkEvent event)))
540
541(define-func gdk_event_is_hint
542  bool
543  ((GdkEvent event)))
544
545(define-func gdk_event_source
546  GdkInputSource
547  ((GdkEvent event)))
548
549(define-func gdk_event_deviceid
550  uint
551  ((GdkEvent event)))
552
553(define-func gdk_event_x_root
554  float
555  ((GdkEvent event)))
556
557(define-func gdk_event_y_root
558  float
559  ((GdkEvent event)))
560
561(define-func gdk_event_key_state
562  bool
563  ((GdkEvent event)))
564
565(define-func gdk_event_keyval
566  uint
567  ((GdkEvent event)))
568
569(define-func gdk_event_string
570  string
571  ((GdkEvent event)))
572
573(define-func gdk_event_subwindow
574  GdkWindow
575  ((GdkEvent event)))
576
577(define-func gdk_event_notify_detail
578  GdkNotifyType
579  ((GdkEvent event)))
580
581(define-func gdk_event_in
582  bool
583  ((GdkEvent event)))
584
585(define-func gdk_event_configure_x
586  int
587  ((GdkEvent event)))
588
589(define-func gdk_event_configure_y
590  int
591  ((GdkEvent event)))
592
593(define-func gdk_event_configure_width
594  int
595  ((GdkEvent event)))
596
597(define-func gdk_event_configure_height
598  int
599  ((GdkEvent event)))
600
601(define-func gdk_get_leader_window_id
602  uint
603  ())
604
605;; Options
606
607(options
608 (includes "#include <gdk/gdk.h>")
609 (init-func "sgtk_init_gtk_gdk_glue")
610 (other-inits "sgtk_init_gtk_gtk_glue"))
Note: See TracBrowser for help on using the repository browser.