X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=gtk%2Fgtk.objects.lisp;h=abbe49218e598dae57a59c0190272dfdeeb2e50c;hb=e569a07e4fe8cd1d4b228c349bc0c9746c0f0a1a;hp=5fc6c400b2ab57f49ced24de576cf1f2d7dba247;hpb=1ebe0bd5ae7b341b81ebea0720d4a1aff4f64b1d;p=cl-gtk2.git

diff --git a/gtk/gtk.objects.lisp b/gtk/gtk.objects.lisp
index 5fc6c40..abbe492 100644
--- a/gtk/gtk.objects.lisp
+++ b/gtk/gtk.objects.lisp
@@ -7,6 +7,7 @@
   (bottom :int :initform 0))
 
 (at-init () (foreign-funcall "gtk_border_get_type" :int))
+(at-init () (foreign-funcall "gtk_ui_manager_get_type" :int))
 
 (export (boxed-related-symbols 'border))
 
@@ -74,3 +75,13 @@
 
 (export 'tree-path)
 (export 'tree-path-indices)
+
+(define-g-enum "PangoWrapMode" pango-wrap-mode
+    (:export t :type-initializer
+             "pango_wrap_mode_get_type")
+  (:word 0) (:char 1) (:word-char 2))
+
+(define-g-enum "PangoEllipsizeMode" pango-ellipsize-mode
+    (:export t :type-initializer
+             "pango_ellipsize_mode_get_type")
+  (:none 0) (:start 1) (:middle 2) (:end 3))
\ No newline at end of file