Typo.

[cl-gtk2.git] / pango / pango.lisp

diff --git a/pango/pango.lisp b/pango/pango.lisp
index a8537b3..9be3323 100644 (file)
--- a/pango/pango.lisp
+++ b/pango/pango.lisp
@@ -17,3 +17,84 @@
 (define-g-object-class "PangoLayout" pango-layout (:type-initializer "pango_layout_get_type") ())
 
 (export 'pango-layout)
+
+(define-g-enum "PangoUnderline" pango-underline (:export t :type-initializer "pango_underline_get_type")
+  (:none 0)
+  (:single 1)
+  (:double 2)
+  (:low 3)
+  (:error 4))
+
+(export 'pango-underline)
+
+(define-g-enum "PangoDirection"
+    pango-direction
+    (:export t :type-initializer "pango_direction_get_type")
+  (:ltr 0)
+  (:rtl 1)
+  (:ttb-ltr 2)
+  (:ttb-rtl 3)
+  (:weak-ltr 4)
+  (:weak-rtl 5)
+  (:neutral 6))
+
+(define-g-object-class "PangoRenderer" pango-renderer
+  (:superclass g-object :export t :interfaces
+               nil :type-initializer
+               "pango_renderer_get_type")
+  nil)
+
+(define-g-object-class "PangoContext" pango-context
+  (:superclass g-object :export t :interfaces
+               nil :type-initializer
+               "pango_context_get_type")
+  nil)
+
+(define-g-enum "PangoRenderPart"
+    pango-render-part
+    (:export t :type-initializer "pango_render_part_get_type")
+  (:foreground 0)
+  (:background 1)
+  (:underline 2)
+  (:strikethrough 3))
+
+(define-g-boxed-opaque pango-layout-line "PangoLayoutLine"
+  :alloc (error "Use Pango to create PANGO-LAYOUT-LINEs"))
+
+(export (boxed-related-symbols 'pango-layout-line))
+
+(define-g-enum "PangoRenderPart"
+    pango-render-part
+    (:export t :type-initializer "pango_render_part_get_type")
+  (:foreground 0)
+  (:background 1)
+  (:underline 2)
+  (:strikethrough 3))
+
+(defcfun pango_glyph_string_new :pointer)
+
+(define-g-boxed-opaque pango-glyph-string "PangoGlyphString"
+  :alloc (pango_glyph_string_new))
+
+(export (boxed-related-symbols 'pango-glyph-string))
+
+(define-g-object-class "PangoFont" pango-font
+  (:superclass g-object :export t :interfaces
+               nil :type-initializer
+               "pango_font_get_type")
+  nil)
+
+(define-g-boxed-cstruct pango-matrix "PangoMatrix"
+  (xx :double :initform 0.0)
+  (xy :double :initform 0.0)
+  (yx :double :initform 0.0)
+  (yy :double :initform 0.0)
+  (x0 :double :initform 0.0)
+  (y0 :double :initform 0.0))
+
+(export (boxed-related-symbols 'pango-matrix))
+
+(define-g-boxed-opaque pango-layout-line "PangoLayoutLine"
+  :alloc (error "You do not create PangoLayoutLine yourself"))
+
+(export (boxed-related-symbols 'pango-layout-line))