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
|
;;;
;;; gtkgllib.stub
;;;
;;; Copyright(C) 2002-2003 by Shiro Kawai (shiro@acm.org)
;;;
;;; Permission to use, copy, modify, distribute this software and
;;; accompanying documentation for any purpose is hereby granted,
;;; provided that existing copyright notices are retained in all
;;; copies and that this notice is included verbatim in all
;;; distributions.
;;; This software is provided as is, without express or implied
;;; warranty. In no circumstances the author(s) shall be liable
;;; for any damages arising out of the use of this software.
;;;
;;; $Id: gtkgllib.stub,v 1.6 2007/08/22 17:06:38 maruska Exp $
;;;
;; mmc: with Cgen, this must come first
"#include \"gauche-gtkgl.h\""
(include "gtkgl.types")
;;=================================================================
;; gdkglversion.h
;;
(define-cproc gtk-gl-ext-check-version (major::<int> minor::<int> micro::<int>)
(call <boolean> "GDKGLEXT_CHECK_VERSION"))
;;=================================================================
;; gdkglwidget.h
;;
(define-cproc gtk-widget-set-gl-capability (widget::<gtk-widget>
glconfig::<gdk-gl-config>
share-list::<gdk-gl-context>-or-null
direct::<boolean>
render-type::<int>)
(call <boolean> "gtk_widget_set_gl_capability"))
(define-cproc gtk-widget-is-gl-capable (widget::<gtk-widget>)
(call <boolean> "gtk_widget_is_gl_capable"))
(define-cproc gtk-widget-get-gl-config (widget::<gtk-widget>)
(call <gdk-gl-config> "gtk_widget_get_gl_config"))
(if "GTKGLEXT_CHECK_VERSION(0, 7, 0)"
(define-cproc gtk-widget-create-gl-context (widget::<gtk-widget>
share-list::<gdk-gl-context>-or-null
direct::<boolean>
render-type::<int>)
(call <gdk-gl-context> "gtk_widget_create_gl_context"))
)
(define-cproc gtk-widget-get-gl-context (widget::<gtk-widget>)
(call <gdk-gl-context> "gtk_widget_get_gl_context"))
(define-cproc gtk-widget-get-gl-window (widget::<gtk-widget>)
(call <gdk-gl-window> "gtk_widget_get_gl_window"))
(define-cproc gtk-widget-get-gl-drawable (widget::<gtk-widget>)
(call <gdk-gl-drawable> "gtk_widget_get_gl_drawable"))
;; Local variables:
;; mode: scheme
;; end:
|
