pango/pango.lisp

   1 (in-package :pango)
   2
   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))
   7
   8 (export 'pango-wrap-mode)
   9
  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))
  14
  15 (export 'pango-ellipsize-mode)
  16
  17 (define-g-object-class "PangoLayout" pango-layout (:type-initializer "pango_layout_get_type") ())
  18
  19 (export 'pango-layout)
  20
  21 (define-g-enum "PangoUnderline" pango-underline (:export t :type-initializer "pango_underline_get_type")
  22   (:none 0)
  23   (:single 1)
  24   (:double 2)
  25   (:low 3)
  26   (:error 4))
  27
  28 (export 'pango-underline)
  29
  30 (define-g-enum "PangoDirection"
  31     pango-direction
  32     (:export t :type-initializer "pango_direction_get_type")
  33   (:ltr 0)
  34   (:rtl 1)
  35   (:ttb-ltr 2)
  36   (:ttb-rtl 3)
  37   (:weak-ltr 4)
  38   (:weak-rtl 5)
  39   (:neutral 6))