X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=gtk%2Fgtk.entry.lisp;fp=gtk%2Fgtk.entry.lisp;h=c21e62f774bc931a0e0d1247a795a2aaec3f2093;hb=e9900caf289cbcb92bd0c17c88a4d49379a2022a;hp=0b80e877bc29361590eeb5f5770851aeeda280be;hpb=8dc9ba4cf32b35d371a491f955cdd621a10ff327;p=cl-gtk2.git

diff --git a/gtk/gtk.entry.lisp b/gtk/gtk.entry.lisp
index 0b80e87..c21e62f 100644
--- 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