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
|
;; -*- mode: scheme; coding: utf-8 -*-
; object definitions
(define-object PgmGtk
(in-module "PgmGtk")
(parent "GtkSocket")
(c-name "PgmGtk")
(gtype-id "PGM_TYPE_GTK")
(fields
'("" "viewport")
)
)
(define-function pgm_gtk_new
(unblock-threads #t)
(c-name "pgm_gtk_new")
(is-constructor-of "PgmGtk")
(return-type "GtkWidget*")
)
(define-method set_viewport
(unblock-threads #t)
(of-object "PgmGtk")
(c-name "pgm_gtk_set_viewport")
(return-type "gboolean")
(parameters
'("PgmViewport*" "viewport")
)
)
(define-method get_viewport
(unblock-threads #t)
(of-object "PgmGtk")
(c-name "pgm_gtk_get_viewport")
(return-type "PgmError")
(parameters
'("PgmViewport**" "viewport")
)
)
|
