From: Dmitry Kalyanov <Kalyanov.Dmitry@gmail.com>
Date: Thu, 29 Oct 2009 12:23:52 +0000 (+0300)
Subject: Add PangoUnderline
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=c54d832b4405bb2c2dcf08a1a4e3d71ad385ad97;p=cl-gtk2.git

Add PangoUnderline
---

diff --git a/pango/pango.lisp b/pango/pango.lisp
index a8537b3..f8d17d6 100644
--- 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)