3 (define-g-enum "PangoWrapMode" pango-wrap-mode
4 (:export t :type-initializer
5 "pango_wrap_mode_get_type")
6 (:word 0) (:char 1) (:word-char 2))
8 (export 'pango-wrap-mode)
10 (define-g-enum "PangoEllipsizeMode" pango-ellipsize-mode
11 (:export t :type-initializer
12 "pango_ellipsize_mode_get_type")
13 (:none 0) (:start 1) (:middle 2) (:end 3))
15 (export 'pango-ellipsize-mode)
17 (define-g-object-class "PangoLayout" pango-layout (:type-initializer "pango_layout_get_type") ())
19 (export 'pango-layout)
21 (define-g-enum "PangoUnderline" pango-underline (:export t :type-initializer "pango_underline_get_type")
28 (export 'pango-underline)
30 (define-g-enum "PangoDirection"
32 (:export t :type-initializer "pango_direction_get_type")
41 (define-g-object-class "PangoRenderer" pango-renderer
42 (:superclass g-object :export t :interfaces
44 "pango_renderer_get_type")
47 (define-g-object-class "PangoContext" pango-context
48 (:superclass g-object :export t :interfaces
50 "pango_context_get_type")
53 (define-g-enum "PangoRenderPart"
55 (:export t :type-initializer "pango_render_part_get_type")
61 (define-g-boxed-opaque pango-layout-line "PangoLayoutLine"
62 :alloc (error "Use Pango to create PANGO-LAYOUT-LINEs"))
64 (export (boxed-related-symbols 'pango-layout-line))
66 (define-g-enum "PangoRenderPart"
68 (:export t :type-initializer "pango_render_part_get_type")
74 (defcfun pango_glyph_string_new :pointer)
76 (define-g-boxed-opaque pango-glyph-string "PangoGlyphString"
77 :alloc (pango_glyph_string_new))
79 (export (boxed-related-symbols 'pango-glyph-string))
81 (define-g-object-class "PangoFont" pango-font
82 (:superclass g-object :export t :interfaces
84 "pango_font_get_type")
87 (define-g-boxed-cstruct pango-matrix "PangoMatrix"
88 (xx :double :initform 0.0)
89 (xy :double :initform 0.0)
90 (yx :double :initform 0.0)
91 (yy :double :initform 0.0)
92 (x0 :double :initform 0.0)
93 (y0 :double :initform 0.0))
95 (export (boxed-related-symbols 'pango-matrix))
97 (define-g-boxed-opaque pango-layout-line "PangoLayoutLine"
98 :alloc (error "You do not create PangoLayoutLine yourself"))
100 (export (boxed-related-symbols 'pango-layout-line))