File: gdkpango.stub

package info (click to toggle)
gauche-gtk 0.4.1-2
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 2,520 kB
  • ctags: 3,230
  • sloc: ansic: 6,655; lisp: 4,159; sh: 2,707; makefile: 344
file content (68 lines) | stat: -rw-r--r-- 2,609 bytes parent folder | download | duplicates (4)
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
;; Automatically generated - DO NOT EDIT

(include "gtk-lib.types")
"#include \"gauche-gtk.h\""

;; gdk_pango_context_get_for_screen
(define-cproc gdk-pango-context-get-for-screen (screen::<gdk-screen>) (return <pango-context> "gdk_pango_context_get_for_screen"))

;; gdk_pango_context_get
(define-cproc gdk-pango-context-get () (return <pango-context> "gdk_pango_context_get"))

;; gdk_pango_context_set_colormap
(define-cproc gdk-pango-context-set-colormap (context::<pango-context> colormap::<gdk-colormap>) (return <void> "gdk_pango_context_set_colormap"))

;; gdk_pango_layout_line_get_clip_region
;; (define-cproc gdk-pango-layout-line-get-clip-region (line::<pango-layout-line> x_origin::<int> y_origin::<int> index_ranges::(UNKNOWN . gint*) n_ranges::<int>) (return <gdk-region> gdk_pango_layout_line_get_clip_region))

;; gdk_pango_layout_get_clip_region
;; (define-cproc gdk-pango-layout-get-clip-region (layout::<pango-layout> x_origin::<int> y_origin::<int> index_ranges::(UNKNOWN . gint*) n_ranges::<int>) (return <gdk-region> gdk_pango_layout_get_clip_region))

;;  struct GdkPangoAttrStipple

"ScmObj Scm_MakeGdkPangoAttrStipple(GdkPangoAttrStipple *data)
 {
   ScmGdkPangoAttrStipple *z = SCM_NEW(ScmGdkPangoAttrStipple);
   SCM_SET_CLASS(z, SCM_CLASS_GDK_PANGO_ATTR_STIPPLE);
   if (data) z->data = *data; /*copy*/
   return SCM_OBJ(z);
 }
"

(define-cclass <gdk-pango-attr-stipple>
  "GdkPangoAttrStipple*" "Scm_GdkPangoAttrStippleClass"
  ()
  (
   (attr :getter "return SCM_MAKE_PANGO_ATTRIBUTE(&(obj->attr));" :setter "obj->attr = *SCM_PANGO_ATTRIBUTE(value);")
   (stipple :type <gdk-drawable>)
   )
  (allocator "return Scm_MakeGdkPangoAttrStipple(NULL);")
  )

;;  struct GdkPangoAttrEmbossed

"ScmObj Scm_MakeGdkPangoAttrEmbossed(GdkPangoAttrEmbossed *data)
 {
   ScmGdkPangoAttrEmbossed *z = SCM_NEW(ScmGdkPangoAttrEmbossed);
   SCM_SET_CLASS(z, SCM_CLASS_GDK_PANGO_ATTR_EMBOSSED);
   if (data) z->data = *data; /*copy*/
   return SCM_OBJ(z);
 }
"

(define-cclass <gdk-pango-attr-embossed>
  "GdkPangoAttrEmbossed*" "Scm_GdkPangoAttrEmbossedClass"
  ()
  (
   (attr :getter "return SCM_MAKE_PANGO_ATTRIBUTE(&(obj->attr));" :setter "obj->attr = *SCM_PANGO_ATTRIBUTE(value);")
   (embossed :type <boolean>)
   )
  (allocator "return Scm_MakeGdkPangoAttrEmbossed(NULL);")
  )

;; gdk_pango_attr_stipple_new
(define-cproc gdk-pango-attr-stipple-new (stipple::<gdk-drawable>) (return <pango-attribute> "gdk_pango_attr_stipple_new"))

;; gdk_pango_attr_embossed_new
(define-cproc gdk-pango-attr-embossed-new (embossed::<boolean>) (return <pango-attribute> "gdk_pango_attr_embossed_new"))