Move GtkEntry::layout property to generating

[cl-gtk2.git] / gtk / gtk.entry.lisp

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