From c54d832b4405bb2c2dcf08a1a4e3d71ad385ad97 Mon Sep 17 00:00:00 2001 From: Dmitry Kalyanov Date: Thu, 29 Oct 2009 15:23:52 +0300 Subject: [PATCH] Add PangoUnderline --- pango/pango.lisp | 9 +++++++++ 1 file changed, 9 insertions(+) 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) -- 1.7.10.4