Move GtkEntry::layout property to generating

diff --git a/generating.lisp b/generating.lisp
index 7ff0f82..ebb6b56 100644 (file)
--- a/generating.lisp
+++ b/generating.lisp
@@ -200,6 +200,7 @@
         (:cffi gtk::selection-bounds gtk::label-selection-bounds nil gtk::gtk-label-get-selection-bounds nil)
         (:cffi gtk::layout-offsets gtk::label-layout-offsets nil gtk::gtk-label-get-layout-offsets nil))
        ("GtkEntry"
+        (:cffi gtk::layout gtk::entry-layout g-object "gtk_entry_get_layout" nil)
         (:cffi gtk::completion gtk::entry-completion (g-object gtk::entry-completion) "gtk_entry_get_completion" "gtk_entry_set_completion")
         (:cffi gtk::cursor-hadjustment gtk::entry-cursor-hadjustment (g-object gtk::adjustment) "gtk_entry_get_cursor_hadjustment" "gtk_entry_set_cursor_hadjustment")
         (:cffi gtk::layout-offset gtk::entry-layout-offset nil gtk::gtk-entry-layout-offset nil))))))

diff --git a/gtk/gtk.entry.lisp b/gtk/gtk.entry.lisp
index 0b80e87..c21e62f 100644 (file)
--- a/gtk/gtk.entry.lisp
+++ b/gtk/gtk.entry.lisp
@@ -2,11 +2,6 @@
 
 ;; GtkEntry
 
-(defcfun (entry-layout "gtk_entry_get_layout") g-object ;;PangoLayout
-  (entry (g-object entry)))
-
-(export 'entry-layout)
-
 (defcfun gtk-entry-get-layout-offsets :void
   (entry (g-object entry))
   (x (:pointer :int))
@@ -36,6 +31,11 @@
 
 (export 'entry-icon-at-pos)
 
+(defcfun (entry-progress-pulse "gtk_entry_progress_pulse") :void
+  (entry (g-object entry)))
+
+(export 'entry-progress-pulse)
+
 ;; GtkEditable
 
 (defcfun (editable-select-region "gtk_editable_select_region") :void

diff --git a/gtk/gtk.generated-classes.lisp b/gtk/gtk.generated-classes.lisp
index 98c0767..ff17bed 100644 (file)
--- a/gtk/gtk.generated-classes.lisp
+++ b/gtk/gtk.generated-classes.lisp
@@ -2121,6 +2121,8 @@
                         (width-chars entry-width-chars "width-chars" "gint" t
                          t)
                         (xalign entry-xalign "xalign" "gfloat" t t)
+                        (:cffi layout entry-layout g-object
+                         "gtk_entry_get_layout" nil)
                         (:cffi completion entry-completion
                          (g-object entry-completion) "gtk_entry_get_completion"
                          "gtk_entry_set_completion")