Add PangoUnderline

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

diff --git a/pango/pango.lisp b/pango/pango.lisp
index a8537b3..f8d17d6 100644 (file)
--- a/pango/pango.lisp
+++ b/pango/pango.lisp
@@ -17,3 +17,12 @@
 (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)